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wdef (pkc, protein, 'protein kinase C 1 ). 
wdef (position, site, site), 
wdef (positions, site, site) . 
wdef (protease, protein, protease) . 
wdef (psl , protein, 'presenilin l f ) . 
wdef (ps2 , protein, 'presenilin 2 f ) . 
wdef (rapl , protein, ' Rapl ' ) . 
wdef(ras, protein, ' Ras 1 ) . 
wdef (receptors , substance, receptor). 
wdef(rela, protein, 1 RelA 1 ) . 
wdef (residues , substance , residue) . 
wdef (responsive , state, active) . * ■ 
wdef(s6, protein, ' S6 ' ) . 

wdef (selectively, constraint, selective) . 
wdef(serll2, site, , Serll2 t ). 
wdef(serl36, site, 'Serl36')- 
wdef (ser32, smallmolecule, 'Ser32 f ) . 
phrase (psl , protein 

wdef (ser36, smallmolecule, , Ser36 l ) . 

phrase (psl, protein, [psl, ' - ' ,ctf ] , . 'psl-ctf 1 ,r 

wdef (sh2 , domain, 1 SH2 1 ) . 

wdef (sh3 , domain, 1 SH3 ■ ) . 

wdef (she, protein, 'She'). 

wdef (signal some , complex, signalsome) . 

wdef (sites, site, site). 

wdef (sos,, protein, 1 Sos 1 ) . 

wdef (staurosporine, smallmolecule, staurosporine) 

wdef (sts, smallmolecule, ! STS") . 

wdef(tcr, complex, 'T-cell receptor*). 

wdef (tetracycline, smallmolecule, tetracycline) . 

wdef *(thr22 9, aminoacid, • Thr22 9') . 

wdef (thr308, aminoacid, 1 Thr308 r ) . 

wdef(thr389, aminoacid, , Thr389 I ). 

wdef (threonine, aminoacid, threonine) . 

wdef (tyrosine, aminoacid, tyrosine) . 

wdef (unresponsive, state, inactive) , 

wdef (unstimulated, state, inactive) . 

wdef (zvad, smallmolecule, 1 zVAD ' ) . 
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% lexsyn.pat 

% revised March 17, 2000 

% SYNTACTIC LEXICON FOR ACTIONS 

% Contains syntactic entries for action type words and phrases 
% 

% synp (+Wordl , +Wordlist , +Syn) 

% synp: Wordl is first word of phrase, Wordlist is list of words i 
n phrase 

% synp: Syn is syntactic categorey 



% 



% synw (+ Word, + Syn) is same as synp except there is no wordlist 
%'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%.%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 



account, [account , for] ,v) . 
account, [account , for] ,vp) . 
accounted, [accounted, for] ,ved) . 
accounted, [accounted, for] ,ven) . 
accounting, [accounting, for] , ving) . 
accounting, [accounting, for] ,n) . 
accounts, [accounts , for] ,vp) . 
add, [add, up] , vp) . 
add, [add, up] ,v) . 
added, [added, up].,ved) ♦ 
added, [added, up] ,ven) . 
adding, [adding, up] ,n) . 
adding, [adding, up] ,ving) . 
adds, [adds, up] ,vp) . 
am, [am, a, means , of , producing] , vp) . 
am, [am, due, to] , vp) . 

are, [are , a, means , of , producing] ,vp) . 

are, [are, due, to] ,vp) . 

as, [as, a, result , of ] ,prep) . 

attributable, [attributable , to] ,vp) . % ? 

attributed, [attributed, to] ,ven) . 

based, [based, on] ,ven) . 

based, [based, upon] ,ven) . 

be, [be, a, means, of , producing] ,v) . 

be, [be, due, to] ,v) . 

because, [because, of] ,prep) . 

been, [been, a, means , of , producing] ,ven) . 

been, [been, due, to] ,ven) . 

being, [being, a, means , of , producing] ,n) . 

being, [being, a, means , of , producing] ,ving) 
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synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 

synp 

— > 

synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 



being, [being, due , to] , n) . 
being, [being, due , to] ,ving) . 
caused, [caused, by] ,ved) . 
causedv [caused, by] ,ven) . 
convey, [convey, a, signal] ,v) . 
convey, [convey, a, signal], vp)\ 
conveyed, [conveyed, a, signal] ,ved) . 
conveyed, [conveyed, a, signal] ,ven) 
conveying, [conveying, a, signal] ,ving) . 
conveying, [conveying, a, signal] ,n) . 
conveys, [conveys, a, signal] , vp) . 
dissociate, [dissociate, from] ,vp) . 
dissociate, [dissociate , from] ,v) , 
dissociated, [dissociated, from] ,ved) . 
dissociated, [dissociated, from] ,ven) . 
dissociates, [dissociates, from] ,vp) . 
dissociating, [dissociating, from] , n) . 
dissociating, [dissociating, from] , ving) . 
dissociation, [dissociation, from] ,n) . 

n r T f 1 ~l j_ _ 1 _ _ \ 



down, [down, f - 
down, [down, 1 - 

down, [down, 1 - 
down, [down, 1 - 
down, [down, ' - 
down, [down, 1 - 
down, [down, 1 - 
down, [down, 1 - 



, regulate] , v) . 
, regulate] , vp) . 



% A down- regulates B 



, regulated] ,ved) . 
, regulated] f ven) . 
, regulates] ,vp) . 
, regulating] ,n) . 
, regulating] ,ving) . 
t „...., , regulation] , n) . 
due , [due , to , the , fact , that ] , ad j ) . 
due, [due, to] ,adj) * % ? 
form, [form, complex] ,v) . 
form, [form, complex] ,vp) . 
formation, [formation, of, complex] ,n) 
formed, [formed, complex] ,ved) . 
formed, [formed, complex] ,ven) . 
forming, [forming, complex] ,n) . 
forming, [forming, complex] ,ving) . 
forms, [forms, complex] ,vp) . 
had, [had, an, active, role, in] ,ved) . 
had, [had, an, active , role , in] ,ven) . 
has, [has, an, active, role, in] , vp) . 
have, [have , an, active , role , in] , v) . 
have, [have , an, active , role , in] ,vp) . 
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synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 

B 

synp 
synp 
synp 
synp 
synp 
synp 
synp 



having, [having, an, active, role , in] , n) . 
having, [having, an, active , role , in] , ving) . 
is, [is, a, means, of , producing] ,vp) . 
is, [is, due, to] ,vp) . 

functions, [ functions , as , a , negative , regulator , of ], vp) . 

function, [function, as , a, negative, regulator, of ] ,vp) . 

lead, [lead, to] , v) . 

leads, [leads, to] ,vp) , 

leading, [leading, to] ,n) . 

leading, [leading, to] , ving ). 

leads, [leads, to] ,vp ). 

led, [led, to] , ved) . 

led, [led, to] , ven) . 

may, [may, be, responsible, for] ,vp) . 

mediate, [mediate, a, signal] , v) . %A mediates a signal to 

mediate, [mediate, a, signal] , vp) . 
mediated, [mediated, a, signal] , ved) . 
mediated, [mediated, a, signal] , ven) . 
mediates, [mediates, a, signal] , vp) . 
mediating, [mediating, a, signal] ,•• n) . 
mediating, [mediating, a, signal] , ving) . 
mediation, [mediation, of , a, signal] ,n) . 



synp 


(n , 


[n, 1 - 


1 , acetylate] , v) . 


synp 


(n, 


[n, ■ - 


• , acetylate] ,vp) . 


synp 


(n, 


[n, ' - 


' , acetylated] ,ved) . 


synp 


(n, 


[n, ' - 


' , acetylated] , ven) . 


synp 


[n , 


[n, ' - 


1 , acetylates] , vp) . 


synp 


(n, 


[n, ' - 


1 , acetylating] , n) . 


synp 


(n, 


[n, ' - 


1 , acetylating] , ving) . 


synp 


(n, 


[n, ' - 


' , acetylation] ,n) . 


synp 


(n , 


[n, 1 - 


1 , acylate] , v) ♦ 


synp 


(n, 


[n, 1 - 


1 , acylate] , vp) . 


synp 


(n, 


[n, ' - 


1 , acylated] , ved) . 


synp 


(n , 


In, ' - 


1 , acylated] , ven) . 


synp 


( n , 


[n, ' - 


1 , acylates] , vp) . 


synp 


(n, 


[n, 1 - 


1 , acylatitig] , n) . 


synp 


(n, 


[n, 1 - 


1 , acylating] , ving) . 


synp 


(n, 


[n, ■ - 


1 , acylation] , n) . 


synp 


(n, 


[n, ' - 


' , glycosylate] , v) . 


synp 


(n, 


[n, ■ - 


« glycosylate] , vp) . 


synp 


(n, 


[n, ' - 


1 , glycosylated] ,ved) . 


synp 


(n, 


[n, • - 


• /glycosylated] ,ven) . 
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synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 



n, in, 
n, [n, 
n, [n, 
n, [n, 
n, [n, 
o, [o, 
o, [o, 
o, [o, 
o, [o, 
o, [o, 
o, [o, 
o, [o, 
o, [o, 
only, 
prolyl , 
prolyl , 
prolyl , 
prolyl, 
prolyl , 
prolyl , 
prolyl , 
prolyl , 
result, 
result , 



glycosylates] ,vp) . 
glycosylating] , n) . 
glycosylating] ,ving) . 
glycosylation] , n) . 
terminal , proteolysis] , n) 
glycosylate] , v) . 
glycosylate] ,vp) . 
glycosylated] ,ved) . 
glycosylated] ,ven) . 
glycosylates] , vp) . 
glycosylating] ,n) . 
glycosylating] , ving) . 
glycosylation] ,n) . 
[only, after] ,prep) 



_ t 



_ t 



4 
4 
4 
4 
4 
4 
4 
4 



prolyl , 
prolyl , 
prolyl , 
prolyl , 
prolyl , 
prolyl , 
prolyl , 
prolyl , 

result , from] , v) . 
result, from] ,vp) . 
result, [result, in] ; v) . 
result, [result , in] ,vp) . 
resulted, [resulted, from] ,ved) . 

[resulted, from] ,ven) . 
[resulted, in] , ved) . 
[resulted, in] , ven) . 
[resulting, from] ,n) . 
[resulting, from] ,ving) 
[resulting, in] , n) . 
resulting, [resulting, in] ,ving) . 
results, [results , from] ,vp) . 
results, [results, in] ,vp) . 
set, [set, free] , v) . 

free] ,v) . 
free] ,ved) . 
free] ,ved) . 
free] ,ven) . 
free] ,ven) . 
free] ,vp) . 



, hydroxylate] ,v ) . 
, hydroxylate] , vp) . 
, hydroxylated] , ved ) . 
, hydroxy 1 at ed] , ven ) . 
, hydroxylates] ,vp) . 
, hydroxylating] , n ) . 
, hydiroxylating] , ving ) 
, hydroxylation] , n) . 



resulted, 

resulted, 

resulted, 

resulting, 

resulting, 

resulting, 



set 
set 
set 
set 
set 
set 



[se.t, 
[set , 
[set , 
[set , 
[set , 
[set , 
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synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synp 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 



set, [set, free] ,vp) . 
sets, [sets, free],vp). 
sets, [sets, free] ,vp) . 
setting, [setting, free],n). 

[setting, free] ,n) . 
[setting, free] ,ving) . 
[setting, free] ,ving) . 
[suppress, activity, of] ,v) . 
[suppress, activity, of]\vp) . 

(suppressed, activity, of] ,ved) . 
[suppressed, activity, of] ,ven) . 
[suppresses, activity, of] ,vp) . 
[suppressing, activity, of] ,n) . 
[suppressing, activity, of] ,ving) . 
[suppression, of , activity, of] ,n) . 
switch, [switch, on, the, activity, of],vp 
switched, [switched, on, the, activity, of 



setting, 
setting , 
setting, 
suppress , 
suppress, 
suppressed , 
suppressed, 
suppresses , 
suppressing, 
suppressing, 
suppression, 



switched, [switched, on, 

switched, [switched, on, 

switched, [switched, on, 

switched, [switched, on, 

switches, [switches, on, 



, ved) . 
,ved) . 
, ved) . 
, ved) . 
, ved) . 
,vp) . 



up, 
up, 
up, 
up, 
up, 
up, 
up, 
up, 
was 
was 



up, 
up, 
up, 
up, 
up, 
up, 
up, 
up, 



• _ 

i _ 

• _ 

! _ 

t _ 

• - 
I _ 
1 „ 



, regulate] , v) 



the, activity, of 
the, activity, of 
the, activity, of 
the, activity, of 
the, activity, of 

% A up-regulates B B --> A 
, regulate] , vp) . % A up-regulates B B A 
, regulated] , ved) . 

, regulated] , ven) . % A up-regulates B B --> A 
, regulates] , vp) . 

, regulating] , n) . % A up-regulates B B --> A 
, regulating] , ving) . % A up-regulates B B --> A 
, regulation] ,n) . 
[was, a, means, of , producing] ,ved) , 
[was, due, to] ,ved) . 
were, [were , a, means , of , producing] , ved) . % ? 
were, [were, due, to] ,ved) . 
acetylate , v) . 
acetylate , vp) . 
acetylated, ved) . 
acetylated, ven) . 
acetylates, vp) . 
acetylating, n) . 
acetylating, ving) . 
acetylation, n) . 
activate, v) . 
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synw (act ivate , vp) . 
synw (act ivated, ved) . 
synw (activated, ven) . 
synw (act ivates , vp) . 
synw (activating, n) . 
synw (activating, ving) . 
synw(activation, n) . 
synw (add, v) . 
synw (add, vp) . 
synw (added, ved) . 
synw (added, ven) . 
synw (adding, n) . 
synw (adding, ving) , 
synw (addition, n) . 
synw (adds , vp) . 
synw (after , prep) . 
synw (aggregate , v) . 
synw ( aggregate ,vp) . 
synw (aggregated ,ved) . 
synw (aggregated ,ven) . 
synw (aggregates, vp) . 
synw (aggregating , n) . 
synw (aggregating ,ving) . 
synw (aggregation , n) . 
synw (arrest , n) . 
synw (arrest , v) . 
synw (arrest , vp) . 
synw (arrested, ved) . 
synw (arrested, ven) . 
synw (arresting, n) . 
synw (-arresting, ving) . 
synw (arrests , vp) . 
synw (associate , v) . 
synw (associate, vp) , 
synw (associated, ved) . 
synw (associated, ven) . 
synw (associates, vp) . 
synw (associating, n) . 
synw (associating, ving) . 
synw (association, n) . 
synw (attach ,v) . 
synw (attach, vp) . 
synw (attached ,ved) . 
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synw (attached ,ven) . 
synw (attaches , vp) . 
synw (attaching , n) . 
synw (attaching , ving) . 
synw ( at t achmen t , n ) . 
synw (bind, v) - 
synw (bind, vp) • 
synw (binding, h) . 
synw (binding, ving) . 
synw (binds, vp) . 
synw (block, v) . 
synw (block, vp) . 
synw (blockage , n) . 
synw (blocked, ved) . 
synw (blocked, ven) . 
synw (blocking, n) . 
synw (blocking, ving) . 
synw (blocks, vp) . 
synw (bound, ved) ♦ 
synw (bound, ven) . 
synw (break, v) . 
synw (break, vp) . 
synw (breakage, n) . 
synw (breaking, n) . 
synw (breaking, ving) . 
synw ( breaks , vp ) . 
synw (broke, ved) . 
synw (broken, ven) . 
synw (catalyzation, n) . 
synw (catalyze, v) . 
synw (catalyze, vp) . 
synw (catalyzed, ved) . 
synw (catalyzed, ven) . 
synw (catalyzes, vp) . 
synw (catalyzing, n) . 
synw (catalyzing, ving) . 
synw (causation, n) . 
synw (cause, n) . 
synw (cause, v) . 
synw (cause, ven) . 
synw (cause, vp) . 
synw (caused, ved) . 
synw (causes, vp) . 



Page 7 



WO 00/63687 



PCT/US00/10302 



synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
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synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 



causing, n) . 

causing, ving) . 

cleavage, n) . 

cleave, v) . 

cleave, vp) . 

cleaved, ved) . 

cleaved, ven) . 

cleaves , vp) . 

cleaving, n) . 

cleaving, ving) . 

coimmunoprecipitate ,v) . 

coimmunoprecipitate, vp) ♦ 

coimmunoprecipitated ,ved) . 

coimmunoprecipitated ,ven) . 

coimmunoprecipitates, vp) . 

coimmunoprecipitating ,n) . 

coimmunoprecipitating , ving) 

coimmunoprecipitation , n) . 

combination ,n) . 

combine , v) . 

combine , vp) . 

combined ,ved) . 

combined ,ven) . 

combines, vp) . 

combining ,n) . 

combining ,ving) . 

conjugate ,v) . 

conjugate , vp) . 

conjugated ,ve) . 

conjugated ,ved) . 

conjugates, vp) . 

conjugating , n). 

conjugating ,ving) . 

conjugation , n) . 

connect , vp) , 

connect, v) . 

connected ,ve) . • -» 

connected ,ved) . 

connecting , n) . 

connecting ,ving) . 

connection , n) . 

connects, vp) . 

constraint) . 
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synw (constrain, vp) . 
synw (constrained, ved) . 
synw (constrained, ven) . 
synw (constraining, n) . 
synw (constraining, ving) . 
synw (constrains, vp) . 
synw (constraint , n) . 
synw (coprecipitate, v) . 
synw (coprecipitate, vp) . 
synw (coprecipitated, ved) . 
synw (coprecipitated, ven) . 
synw (coprecipitates , vp) . 
synw(coprecipitating, n) . 
synw (coprecipitating , ving) . 
synw(coprecipitation ,n) . 
synw (copurif ication ,n) . 
synw (copurif ied ,ved) . 
synw (copurif ied ,ven) . 
synw (copurif ies , vp) . 
synw (copurif y , vp) . 
synw (copurif y,v) . 
synw(copurifying , n). 
synw (copurif ying ,ving) . 
synw (couple , vp) . 
synw ( couple, v) . 
synw (coupled, ved) . 
synw (coupled, ven) . 
synw (couples , vp) . 
synw (coupling, n) . 
synw (coupling, ving) . 
synw (cut , n) . 
synw (cut , v) . 
synw (cut , ved) . 
synw (cut , ven) . 
synw (cut , vp) . 
synw (cuts, vp) . 
synw (cutting, n) . 
synw (cutting, ving) . 
synw (deactivate, v) . 
synw (deactivate , vp) , 
synw (deactivated, ved) . 
synw (deactivated, ven) . 
synw (deactivates, vp) . 
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synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw* 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 
synw 



deactivating, n) . 
deactivating, ving) . 
deactivation, n) . 
death, n) . 
demethylate, v) . 
demethylate, vp) . 
demethylated, ved) . 
demethylated, ven) . 
demethylates , vp) . 
demethylating, n) . 
demethylating, ving) . 
demethylation, n) , 
dephosphorylate, v) . 
dephosphorylate, vp) . 
dephosphorylated, ved) . 
dephosphorylated, ven) . 
dephosphorylates, vp) . 
dephosphorylating, n) . 
dephosphory 1 at ing , ving ) 
dephosphorylation, n) . 
die,v) . 
die,vp) . 
died, ved) ♦ 
died, ven) . 
dies,vp) . 
disassemble, v) . 
disassemble, vp) . 
disassembled, ved) . 
disassembled, ven) . 
disassembles, vp) . 
disassembling, n) . 
disassembling, ving) . 
disassembly, n) . 
discharge ,n) . 
discharges) . 
discharge, vp) . 
discharged, ved) : 
discharged, ven) . 
discharges, vp) . 
discharging, n) . 
discharging, ving) . 
disengage, v) . 
disengage, vp) . 
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synw (disengaged ,ved) . 
synw (disengaged, ven) . 
synw (disengagement , n) . 
synw (disengages , vp) . 
synw (disengaging, n) . 
synw (disengaging, ving) . 
synw (divide, v) . 
synw (divide, vp) . 
synw (divided, ved) . 
synw (divided, ven) . 
synw (divides, vp) . 
synw (dividing, n) . 
synw (dividing, ving) . 
synw (division, n) . 
synw (dying, n) . 
synw (dying, ving) . 
synw (enhance, v) . 
synw (enhance, vp) . 
synw (enhanced, ved) . 
synw (enhanced, ven) . 
synw (enhancement , n) . 
synw ( enhances, vp) . 
synw (enhancing, n) . 
synw (enhancing, ving) . 
synw (express, v) . 
synw (express, vp) . 
synw (expressed, ved) . 
synw (expressed, ved) ♦ 
synw (expressed, ven) . 
synw (expresses, vp) . 
synw (expressing, n) . 
synw (expressing, n) . 
synw (expressing, ving) . 
synw (expression, n) . 
synw (gener ate, v) . 
synw (generate, vp) . 
synw (generated, ved) . 
synw (generated, ven) . 
synw .( genera tes,vp) . 
synw (generating, n) . 
synw (generating, ving) . 
synw (generation, n) . 
synw (hew, v) . 
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synw (hew, vp) . 
synw (hewed, ved) . 
synw ( hewed , ven ) , 
synw (hewing, n) . 
synw (hewing, ving) . 
synw ( hews , vp ) . 
synw (hinder , v) . 
synw (hinder, vp) . 
synw (hindered, ved) . 
synw (hindered, ven) . 
synw (hindering, n) . 
synw (hindering, ving).. 
synw (hinders , vp) . 
synw (hindrance , n) . 
synw (inactivate, v) . 
synw (inactivate, vp) . 
synw ( inactivated, ved) . 
synw ( inactivated, ven) . 
synw (inactivates, vp) , 
synw(inactivating,n) . 
synw (inactivating, ving) . 
synw (inactivat ion, n) . 
synw ( incite, v) . 
synw ( incite , vp) . 
synw (incited, ved) . 
synw (incited, ven) . 
synw (incitement , n) . 
synw (incites , vp) . 
synw ( inciting, n) . 
synw (inciting, ving) . 
synw (induce, v) . 
synw ( induce, vp) . 
synw (induced, ved) . 
synw (induced, ven) . 
synw ( induces /Vp) . 
synw ( inducing, n) . 
synw (inducing, ving) . 
synw (induction, n) . 
synw(inf luence,n) . 
synw (influence, v) . 
synw (influence, vp) . 
synw (influenced, ved) . 
synw(inf luenced, ven) . 
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synw 
synw 
synw 
synw 
synw 
synw 
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synw 
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synw 
synw 
synw 
synw 
synw 
synw 



influences, vp). . 
influencing, n) . 
influencing, ving) . 
inhibit, v) . 
inhibit , vp) . 
inhibited, ved) . 
inhibited, ven) . 
inhibiting, n) . 
inhibit ing, ving) . 
inhibitions) . 
inhibits, vp) . 
initiate , v) . 
initiate, vp) . 
initiated, ved) , 
initiated, ven) . 
initiates, vp) . 
initiating, n) . 
initiating, ving) . 
initiation, vp) . 
instigate, v) . 
instigate, vp) . 
instigated, ved) . 
instigated, ven) . 
instigates, vp) . 
instigating, n) . 
instigating, ving) . 
instigation, n) . 
interact , v) . 
interact ,vp) . 
interacted, ved) . 
interacted, ven) . 
interacting, n) . 
interacting, ving) . 
interactions) . 
interactions, n) . 
interacts, vp) . 
join , vp) ♦ • " 

join,v) . 
joined, ved) . 
joined, ven) . 
joining, n) . 
joining, ving) . 
joins , vp) . 
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synw (juncture , n) . 
synw (liberate, v) . 
synw (liberate , vp) . 
synw (liberated, ved) . 
synw (liberated, ven) . 
synw (liberates, vp) . 
synw (liberating, n) . 
synw (liberating, ving) . 
synw (liberation, n) . 
synw ( limit , v) . 
synw (limit , vp) . 
synw ( limitation, n) . 
synw (limited, ved) . 
synw (limited, ven) . 
synw ( limiting, n) . 
synw ( limiting, ving) . 
synw (limits, vp) . 
synw (link, n) . 
■^yrw (link, v) . 
synw (link, vp) . 
synw (linked, ved) . 
synw (linked, ven) . 
synw (linking, n) . 
synw (linking, ving) . 
synwdinks, vp) . 
synw (mediate , v) . 
synw (mediate, vp) . 
synw (mediated, ved) . 
synw (mediated, ven) . 
synw (mediates, vp) . 
synw (mediating, n) . 
synw (mediating, ving) . 
synw (mediation, n) . 
synw(methylate, vp) . 
synw (methylate, v ). 
synw (methylated, ved ) . 
synw (methylated, ven ) . 
synw (methylates , vp) . 
synw (methylating, n ) . 
synw (methylatiiig, ving ) . 
synw (methylat ion, n) . 
synw (modifications) . 
synw (modified, ved) . 
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synw 
synw 
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synw 
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synw 
synw 



modif ied, ven) . 
modifies, vp) . 
modify, v) . 
modify ,vp) . 
modifying, n) . 
modif ying, ving) . 
mutate, v) . 
mutate, vp) . 
mutated, ved) . 
mutated, ven) . 
mutates, vp) . 
mutating, n) 
mutating, ving) . 
mutation, n) . 
overexpress , v) . 
overexpress , vp) . 
overexpressed, ved) . 
overexpressed , ven) . 
overexpresses , vp) . 
overexpress ing, n) . 
overexpress ing, ving) . 
overexpress ion, n) . 
pair,v) . 
pair,vp) . 
paired, ved) . 
paired, ven) . 
pairing, n) . 
pairing, ving) . 
pairs, vp) . 
phosphorylate, n) . 
phosphorylate , vp) , 
phosphorylated, ved) . 
phosphorylated, ven) . 
phosphorylates, vp) . 
phosphorylating, n) . 
phosphorylat ing, ving) . 
phosphorylation, n) ♦ 
promote, v) . 
promote, vp) . 
promoted, ved) . 
promoted, ven) . 
promotes, vp) . 
promoting, n) . 
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synw (promoting, ving) . 
synw (promotion, n) . 
synw (prompt , n) . 
synw (prompt ,v) . 
synw (prompt , vp) . 
synw (prompted, ved) . 
synw (prompted , ven) . 
synw (prompting, n) . 
synw (prompting, ving) . 
synw (prompt s , vp) . 
synw (react , v) . 
synw (react ,vp) . 
synw (reacted, ved) . 
synw (reacted, ven) , 
synw (reacting, n) . 
synw (reacting, ving) . 
synw (react ion, n) . 
synw (reacts , vp) . 
synw (regulate, v) . 
synw (regulate, vp) . 
synw (regulated, ved) . 
synw (regulated, ven) . 
synw (regulates, vp) . 
synw (regulating, n) . 
synw (regulating, ving) . 
synw (regulation, n) . 
synw (release , n) . 
synw (release , v) , 
synw (release , vp) . 
synw (released, ved) ♦ 
synw ('released, ven) . 
synw (releases , vp) . 
synw (releasing, n) . 
synw (releasing, ving) . 
synw (removal , n) . 
synw (remove, v) . 
synw ( remove, vp) . 
synw (removed, ved) . 
synw (removed, ven) . 
synw (removes , vp) . 
. synw (removing, n) . 
synw (removing, ving) . 
synw (replace, v) ♦ 
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synw 
synw 
synw 
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synw 
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synw 
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synw 
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synw 
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synw 



replace ,vp) . 
replaced, ved) . 
replaced, ven) . 
replacement , n) . 
replaces, vp) . 
replacing, n) . 
replacing, ving) . 
repress, vp) . 
repress, v). 
repressed, ved) . 
repressed, ven) . 
represses , vp) . 
repressing, n) . 
repressing, ving) . 
repression^) , 
require, v) . 
require, vp) . 
required, ved) . 
required, ven) . 
requirement , n) - 
requires ,vp) . 
requiring, n) . 
requiring, ving) . 
restrain, vp) . 
restrain, v) . 
restrained, ved) . 
restrained, ven) . 
restraining, n) . 
restraining, ving) . 
restrains, vp) . 
restraint, n) . 
sensitization, n) . 
sensitize, vp) . 
sensitize, v) . 
sensitized, ved) . 
sensitized, ven) 
sensitizes, vp) . 
sensitizing, n) . 
sensitizing, ving) . 
separate, v) . 
separate, vp) . 
separated, ved) . 
separated, ven) . 
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synw (separates , vp)* . 
synw (separating, n) . 
synw (separating, ving) . 
synw (separation, n) . 
synw (sever, v) . 
synw (sever , vp) . 
synw (severance , n) . 
synw (severed, ved) . 
synw (severed, ven) . 
synw (severing, n) . 
synw (severing, ving) . 
synw (severs, vp) . 
synw (signal , v) . 
synw (signal , vp) . 
synw (signaled, ved) . 
synw (signaled, ved) . 
synw (signaled, ven) . 
synw (signaling, n) . 
synw (signaling, ving) . 
synw (signals , vp) . 
synw ( split , n) . 
synw (split , v) . 
synw (split, ved) . 
synw (split , ven) . 
synw (split, vp) . 
synw (splits , vp) . 
synw (splitting, n) . 
synw (splitting, ving) . 
synw (stimulate, v) . 
synw (stimulate, vp) . 
syhw (stimulated, ved) . 
synw (stimulated, ven) . 
synw (stimulates, vp) . 
synw (stimulating, n) . 
synw (stimulating, ving) . 
synw (stimulation, n) . 
synw (substitute, v) . 
synw (substitute, vp) . 
synw (substituted, ved) . 
synw (substituted, ven) . 
synw (substitutes, vp) . 
synw (substituting, n) > 
synw (substituting, ving) . 
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synw (substitution, n) . 
synw (suppress f vp) . 
synw ( suppress , v) . 
synw ( suppressed, ved) . 
synw (suppressed, ven) . 
synw ( suppresses , vp) . 
synw (suppressing, n) . 
synw (suppressing, ving) . 
synw (suppression, n ) . 
synw (tie, n) ♦ 
synw(tie, v) . 
synw (tie, vp) . 
synw (tied, ved) . 
synw ( tied, ven) . 

synw (ties, vp) . 
synw (transcribe, v) . 

synw (transcribe, vp) . 
synw (transcribed, ved) . 
synw (transcribed, ven) . 
synw (transcribes , vp) . 
synw (transcribing, n) . 
synw (transcribing, ving) . 
synw (transcription, n) . 
synw (tying, n) . 
synw (tying, ving) . 
synw (ubiquitinization, n) 
synw(ubiquitinize, v) . 
synw (ubiquitinize, vp) . 
synw (ubiquitinized, ved) . 
synw (ubiquitinized, ven) . 
synw (ubiquitinizes, vp) , 
synw(ubiquitinizing, n) . 
synw (ubiquitini zing, ving) . 
synw (urge, n) , 
synw (urge, v) . 
synw (urge, vp) . 
synw (urged, ved) . 
synw ( urged , ven ) . 
synw (urges, vp) . 
synw (urging , n) . 
synw (urging, ving) . 

% the following are verbs connected with complexes 
synw (form, v) . , 
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synw 

synw 

synw-. 

synw 

synw 



£orm,vp) . 
forms , vp) . 
formed ,ved) . 
formed ,ven) . 
forming, n) . 
formation, n) . 
assemble ,v] . 
assemble , vp) . 
assembles , vp) . 
assembled, ved) . 
assembled, ven) . 
assembling, n) . 
assembly, n) . 
dissassemble, v) . 
dissassemble, vp) . 
dissassembles , vp) . 
dissassembled/ ved) . 
dissassembled, ven) . 
dissassembling, n) . 
dissassembly, n) . 
dissociate, v) . 
dissociate, vp) . 
dissociates, vp) . 
dissociated, ved) . 
dissociated, ven) . 
dissociating, n) . 
dissociation, n) ♦ 
recruit , v) . 
recruit, vp) , 
recruits, vp) . 
recruited, ved) . 
recruited, ven) . 
recruiting, n) . 
recruitment , n) . 
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% lexsemact .pat 

% revised March 17, 2000 

% SEMANTIC LEXICON OF ACTIONS 

%%%%%%%%%'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%%%%%%% 

% For genomics - the grammar tests for semantic and syntactic cate 
gories 

% separately for action type of categories; for substances the lex 
ical 

% entries are the same as in the medical area 

% action type phrases have two entries: a semantic entry and a syn 
tactic entry 

% This lexicon contains the semantic entries for words and phrases 

% semp is a lexical entry for phrasal lexicon 

% semp (+Wordl , + Sem, +Wordlist , +Targetf orm, +Features) 

% semp specifies a semantic lexical definition for the genomics li 
terature 

% semp is equivalent to the predicate "phrase" in the medical area 
% semp: Wordl is first word of phrase, Sem is semantic category 
% semp: Wordlist is list of words in phrase, Target form is output 
form 

% semp: Features is a 'list of 2 elements or the atom "def " represe 
nting defaul 

% semp: Features 1st element is rev or nrev meaning reversed or no 
t reversed 

% semp: Features 2nd element is a # specifying number of arguments 
for action 

% semp: Features = def is equivalent to a list = [nrev, 2] 
% in case action has 1 argument, use [1,_] 

%semw is a lexical entry for single word 
% semw(+Word, + Sem, +Targetf orm, ^Features) 

% semw: the arguments are the same as for semp except there is no 
Wordlist 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%%%%%%%% 

multifile (semp/5) . 
:- multifile (semw/4 ) . 

semp (account , cause, [account , for] , cause, [def]) . 
semp (accounted, cause , [accounted, for] , cause, [def] ) . 
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semp (accounting, cause, [accounting , for] , cause, [def] ) . 
semp (accounts , cause, [accounts , for] , cause, [def]) . 
semp (add, attach, [add, up], attach, [def]). 
semp (added, attach, [added, up], attach, [def]). 
semp (adds, attach, [adds, up], attach, [def]). 
semp (are, cause, [are, a, means , of , producing] , cause, [def] ) . 
semp (are , cause , [are , due , to] , cause , [2 , rev] ) . 
semp (as , cause , [as , a, result , of ] , cause , [2 , rev] ) . 
semp (attributable, cause, [attributable, to] , cause, [2 , rev] ) . 
semp (attributed, cause, [attributed, to] , cause, [2, rev]) . 
semp (based, cause, [based, on] , cause, [2, rev]) . 
semp (based, cause, [based, upon] , cause, [2, rev]) . 
semp (because , cause , [because , of ], cause , [2, rev]), 
semp (convey, signal, [conveys, a, signal] , signal, [def] ) . 
semp (conveyed, signal, [conveyed, a, signal], signal, [def]). 
semp (conveying, signal, [conveying, a, signal], signal, [def]). 
semp (conveys , signal, [conveys, a, signal] , signal , [def]). 
semp (dissociate, release, [dissociate, from], release, [def ]) . 
semp (dissociated, release, [dissociated, from] , release, [def] ) . 
semp (dissociates, release, [dissociates, from], release, [def ]) . 
semp (dissociation, release, [dissociation, from] , release, [def] ) . 
semp (down, signal , [down, 1 - • , regulate] , signal, [def] ) . % A down- 
regulates B A --> B 
semp (down, signal, [down, ' - 1 , regulated] , 
-regulates B A --> B 
semp (down, signal, [down, ' - 1 , regulates] , 
-regulates B A --> B 
semp (down, signal, [down, 1 - 1 , regulation] 
n- regulates B A — > B 

semp (due, cause, [due , to, the, fact , that] , cause, [2,rev]). 
semp (due, cause, [due, to] , cause, [2, rev]) . 
semp (form, attach, [form, complex], attach, [def]) . 
semp (formation, attach, [formation, of, complex], attach, 
semp (formed, attach, [formed, complex], attach, [def]). 
semp (forms, attach, [forms, complex], attach, [def]). 
semp (had, cause, [had, an, active, role, in] , cause, [def]) . 
semp (has, cause, [has, an, active, role, in] , cause, [def]) . 
semp (have, cause, [have, an, active, role, in] , cause, [def]) . 
semp (is, cause, [is , a, means , of , producing] , cause, [def]) . 
semp (is, cause, [is, due, to] , cause, [2 , rev] ) . 

semp (functions , inactivate , [functions , as , a, negative , regulator, of ] , i 
nactivate, [def] ) . 

semp (function, inactivate, [function, as , a , negative, regulator, of] , ina 



signal, 
signal, 
signal , 



[def] ) . 
[def] ) . 
[def]) 



% A down 



% A down 



% A dow 



[def] ) 
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ctivate, [def ] ) . 

sempdead, cause, [lead, to], cause, [def ]) . 
semp (lead, causel , [lead, to] , cause, [def]). 
semp (leading, cause, [leading, to] , cause, [def]) . 
semp (leading, cause, [leading, to] , cause , [def]) . 
sempdeads, cause, [leads, to], cause, [def ]) . 
semp (leads, causel, [leads, to] , cause, [def] ) . 
semp (led, cause , [led, to] , cause, [def] ) . 

semp (may, cause, [may, be , responsible, for] , cause, [def] ) . 
semp (mediate ,' signal , [mediate, a, signal], signal, [def]) 
mediates a signal to B 

[mediated, a, signal] t 
B 

[mediates, a, signal] , 
B 



%A 



semp (mediated, signal , 
A mediates a signal to 
semp (mediates , signal , 
A mediates a signal to 
semp (mediation, signal , [mediation, of , 
%A mediates a 'signal to B. 



signal , [def] ) . 
signal , [def] ) . 
a, signal], signal, [def]) 



% 



% 



semp (n, 
semp (n, 
semp (n, 
semp (n, 
semp (n, 
semp (n, 
semp (n, 
semp (n, 
semp (n, 
semp (n, 
semp (n, 



createbond, 
createbond, 
createbond, 
createbond, 
createbond, 
createbond, 
createbond, 
createbond, 
createbond, 
createbond, 



createbond, 
semp (n, createbond, 
semp (n, breakbond, [n 
sis ' , [def] ) . 
semp (o, createbond, 
semp (o, createbond, 
semp (o, createbond, 
semp (o, createbond, 



[n, 
[n, 
[n, 
[n, 
[n, 
[n, 
[n, 
[n, 
[n, 
[n, 
[n, 
[n, 



i _ 



, acetylate] , 
, acetylated] 
, acetylates] 



'N-acetylate ■ , [def] ) , 
, ' N-acetylate ' , [def] ) . 
, 1 N-acetylate ' , [def] ) . 
, acetylatiori] , 'N-acetylate' , [def] ) . 
,acylate] , f N-acylate' , [def] ) . 
,acylated] , 'N-acylate 1 , [def] ) . 
, acylates] , 1 N-acylate 1 , [def] ) . 
,acylation] , 'N-acylate' , [def] ) . 
glycosylate] , ' N-glycosylate 1 , [def] ) . 
glycosylated] , 'N-glycosylate' , [def] ) . 
^glycosylates] , 'N-glycosylate' , [def] ) . 
, glycosylation] , 'N-glycosylate' , [def] ) . 
, terminal , proteolysis] , 'n-terminal proteoly 



'O-glycosylate ' , [def] ) . 
• O-glycosylate ' , [def]) . 
'O-glycosylate 1 , [def] ) . 
, 'O-glycosylate' , [def] ) 



[o, 1 - ' glycosylate] , 
[O/ 1 - ' glycosylated] , 
[o, 1 - 1 glycosylates] , 
[o, ' - ' , glycosylation] 
semp (only, time, [only, after] , 'only after' , [2, rev] ) . 
semp (prolyl , createbond, [prolyl , 1 - 1 , 4 , 1 - 1 , hydroxylate] , 

' prolyl -4 -hydroxylate ' , [def]) . 
createbond, [prolyl , 1 - ' , 4 , ' - ' , hydroxylated] , 

• prolyl -4 -hydroxylate ' , [def] ) . 
createbond, [prolyl, '-' ,4, '*-' , hydroxylates] , 

1 prolyl -4 -hydroxylate '• , [def] ) . 
createbond, [prolyl, 1 - ' ,4, 1 - ' , hydroxylation] , 



semp (prolyl , 
semp (prolyl , 
semp (prolyl , 
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1 prolyl -4 -hydroxylate ■ , [def] ) . 
semp (result , cause , [result , from] , cause, [2,rev]). 
semp (result , cause , [result, in] , cause, [def] ) . 
semp (resulted, cause , [resulted, from] , cause, [2, rev]) . 
semp (resulted, cause , [resulted, in] , cause, [def] ) . 
semp (resulting, cause, [resulting, from] , cause, [2, rev]) . 
semp (resulting, cause, [resulting, in] , cause, [def] ) , 
semp (results , cause , [results , from] , cause , [2, rev]) . 
semp (results , cause , [results, in] , cause, [def]). 
semp(set, release, [set, free], release , [def]). 
semp(set, release, [set, free], release , [def]). 
semp(sets, release, [sets, free], release , [def]). 
semp (setting, release, [setting, free], release , [def ] ) . 
semp (suppress , inactivate, [suppress, activity, of], inactivate, [ 
def] ) . 

semp (suppressed, inactivate, [suppressed, activity, of], inactivat 
e, [def] ) . 

semp (suppresses, inactivate, [suppresses, activity, of], inactivat 
e, [def] ) . 

semp (suppression, inactivate, [suppression, of , activity, of], inac 
tivate , [def] ) . 

semp (switch, activate, [switch, on, the, activity, of], activate 
, [def] ) . 

semp (switched, activate, [switched, on, the, activity, of], acti 
vate, [def] ) . 

semp (switches, activate, [switches, on, the, activity, of], acti 
vate, [def] ) . 

semp (up, signal , [up, regulate] , signal, [2, rev]). % A up-regul 
ates B B --> A 

semp (up, signal , [up, regulated] , signal, [2,rev]). 
semp (up, signal , [up, ■ - 1 , regulates] , signal , [2 , rev] ) . 
semp (up, signal , [up, • - ' , regulation] , signal , [2, rev] ) . 
semp (was, cause, [was, a, means , of , producing] , cause, [def] ) . 
semp (was, cause, [was , due, to] , cause , [2, rev]). 

semp (were, cause, [were , a, means , of , producing] , cause, [def]) . 

semp (were, cause, [were, due, to] , cause, [2, rev] ) . 

semw (acetylate, createbond, acetyl.ate, [def] ) . 

semw (acetylated, createbond, acetylate, [def]) . 

semw (acetylates , createbond, acetylate, [def]) , 

semw (acetylation, createbond, acetylate, [def]). 

semw (activate, activate, activate, [def] ) . 

semw (activated, activate, activate, [def]). 

semw (activates , activate, activate, [def ]) . 
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semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
bond 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 



activation, activate, activate, [def] ) . 
add, attach, attach, [def] ) . 
added, attach, attach, [def] ) . 
addition, attach, attach, [def] ) . 
adds, attach, attach, [def]) . 

after, time, after, [2 , rev] ) . % temporal relations 

aggregate , attach, attach, [def]) . 

aggregated , attach, attach, [def]) . 

aggregates, attach, attach, [def] ) . 

aggregation , attach, attach, [def] ) , 

arrest, inactivate, inactivate, [def ] ) . 

arrested, inactivate, inactivate, [def] ) . 

arrests, inactivate, inactivate, [def]) . 

associate, attach, attach, [def]) . 

associated, attach, attach, [def] ) . 

associates, attach, attach, [def] ) . 

association, attach, attach, [def]) . 

attach, attach, attach, [def] ) . 

attached , attach, attach, [def]) . 

attaches, attach, attach, [def] ) . 

attachment, attach, attach, [def] ) , 

bind, attach, attach, [def] ) . 

binding, attach, attach, [def] ) . 

binds, attach, attach, [def]) . 

block, inactivate, inactivate, [def]) , 

blocked, inactivate, inactivate, [def]) . 

blocking, inactivate, inactivate, [def] ) . 

blocks, inactivate, inactivate, [def] ) . 

bound, attach, attach, [def] ) . 

break, breakbond, 'break bond' , [def] ) . 

breakage, breakbond, 'break bond 1 , [def] ) . 

breaks, breakbond, 'break bond' , [def ] ) . 

broke, breakbond, 'break bond 1 , [def] ) . 

broken, breakbond, 'break bond', [def]). % case without break 

catalyzation, promote, catalyze, [def]) . 
catalyze, promote, catalyze, [def]) . 
catalyzed, promote, catalyze, [def] ) . 
catalyzes , promote , catalyze , [def] ) . 
catalyzing, promote, catalyze, [def] ) . 
cause, cause, cause, [def] ) . 
caused, cause, cause, [def ] k. 
causes, cause, cause, [def]) . 
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semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 

y? 

semw 
semw 
semw 
semw 
semw 
semw 



cleavage , breakbond, 
c 1 eave , breakbond , 
c 1 eaved , breakbond , 
cleaves, breakbond, 
coimmunoprecipitate , 



'break bond' , [def] ) . 
break bond' , [def] ) . 
'break bond' , [def] ) . 
•break bond' , [def] ) . 
attach, attach, [def] ) , 
coimmunoprecipitated , attach, attach, [def]). 
coimmunoprecipitates , attach, attach, [def]) . 
coimmunoprecipitation , attach, attach, [def]) . 
combination , attach, attach, [def] ) . 
combine , attach, attach, [def] ) . 
combined , attach, attach, [def]) . 
combines, attach, attach, [def ]} .- 
conjugate , attach, attach, [def] ) . 
conjugated , attach, attach, [def]) . 
conjugates, attach, attach, [def]) . 
conjugation , attach, attach, [def] ) . 
connect , attach, attach, [def] ) . 
connected , attach, attach, [def] ) . 
connection , attach, attach, [def] ) . 
connects, attach, attach, [def]) . 
constrain, inactivate, inactivate, [def] ) . 

* * 

constrained, inactivate, inactivate, [def]) . 
constrains, inactivate, inactivate, [def]) . 
constraint, inactivate, inactivate, [def] ) . 
coprecipitate, attach, attach, [def]) . 
coprecipitated, attach, attach, [def] ) . 
coprecipitates , attach, attach, [def] ) . 
coprecipitation , attach, attach, [def] ) . 
copurif ication , attach, attach, [def]) . 
copurified , attach, attach, [def] ) . 
copurifies, attach, attach, [def]) . 
copurify , attach, attach, [def]) , 
couple , attach, attach, [def]) . 
coupled, attach, attach, [def]) . 
couples, attach, attach, [def ]) . 
cut , breakbond , 1 break bond ' 



[def] ) 



% leave breakbond onl 



cuts, breakbond, 'break bond' , [def] ) . 
deactivate, inactivate, inactivate, [def ] ) . 
deactivated, inactivate, inactivate, [def]) . 
deactivates, inactivate, inactivate, [def]). 
deactivation, inactivate, inactivate, [def]) . 
death, process, death, [1] ) . 
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semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
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semw 
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gument 
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semw 
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semw 
semw 
semw 
semw 
semw 
semw 



demethylate, breakbond, demethylate, [def ] ) . 
demethylated, breakbond, demethylate, [def] ) . 
demethylates , breakbond, demethylate, [def]) . 
demethylation, breakbond, demethylate, [def] ) . 
dephosphorylate , breakbond, dephosphorylate, [def]) . 
dephosphorylated, breakbond, dephosphorylate , [def] ) . 
dephosphorylates , breakbond, dephosphorylate , [def] ) . 
dephosphorylation, breakbond, dephosphorylate , [def] ) 
die, process, death, [1] ) . 
died, process, death, [1] ) . 
dies, process, death, [1]) . 
disassemble, release, release, [def]) . 
disassembled, release, release, [def] ) . 
disassembles, release, release, [def]) , 
disassembly, release, release, [def]) . 
discharge, release, release, [def]) . 
discharged, release, release, [def] ) . 
discharges, release, release, [def] ) . 
disengage, release, release, [def]) . 
disengaged, release, release, [def]) . 
disengagement, release, release, [def] ) . 
disengages, release, release, [def] ) . 
divide, breakbond, 'break bond 1 , [def] ) . 
divided, breakbond, 'break bond', [def]) . 
divides, breakbond, 'break bond', 
division, breakbond, ? break bond 1 
dying, process, death, [1] ) . 
enhance, promote, promote, [def]) . 
enhanced, promote , promote , [def] ) . 
enhancement , promote , promote , [def] ) . 
enhances, promote, promote, [def] ) . 
enhancing, promote, promote, [def]) . 

express, generate, express, [def]) . %.can have either 1 or 2 ar 
s 

expressed, generate, express, [def]) . 
expresses, generate, express, [def] ) . 
expressing, generate, express , [def] ) , 
expression, generate , express, [def] ) . 
generate, generate, generate, [def] ) . 
generated, generate , generate , [def] ) . 
generates, generate, generate, [def] ) . 
generating, generate, generate, [def] ) . 
generation, generate, generate, [def] ) . 



[def] ) . 
, [def] ) 
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semw (hew, breakbond, 'break bond' , [def] ) . 
semw (hewed, breakbond, 'break bond', [def]) . 
.semw(hews, breakbond, 'break bond' , [def] ) . 
semw (hinder , inactivate, inactivate, [def] ) . 
semw (hindered, inactivate, inactivate, [def] ) . 
semw (hinders , inactivate, inactivate, [def]) . 
semw (hindrance , inactivate, inactivate, [def] ) . 
semw (inactivate, inactivate, inactivate, [def]). 
semw (inactivated, inactivate, inactivate, [def]) . 
semw (inactivates, inactivate, inactivate, [def]) . 
semw (inactivat ion, inactivate, inactivate, [def] ) 
semw (incite, activate, activate, [def] ) . 
semw ( incited, activate, activate, [def]) . 
semw (incitement, activate, activate, [def]) . 
semw (incites, activate, activate, [def]). 
semw(induce, activate, activate, [def] ) . 
semw ( induced, activate, activate, [def]) . 
semw(induces, activate, activate, [def]) . 
semw (induction, activate, activate, [def] ) , 
semw (influence , activate, activate, [def] ) . 
semw ( influenced, activate, activate, [def]) . 
semw (influences, activate, activate, [def]) . 
semw (influencing, activate, activate, [def]) . 
semw(inhibit , inactivate, inactivate, [def]). 
semw (inhibited, inactivate, inactivate, [def] ) . 
semw (inhibition, inactivate, inactivate, [def]) . 
semw (inhibits, inactivate, inactivate, [def]) . 
semw (initiate, activate, activate, [def]) . 
semw (initiated, activate, activate, [def].) . 
semw (initiates , activate, activate, [def] ) . 
semw ( initiatt ion, activate, activate, [def]) . 
semw (instigate, activate, activate, [def]) . 
semw (instigated, activate, activate, [def] ) . 
semw (instigates, activate, activate, [def] ) . 
semw (instigation, activate, activate, [def]) .. 
semw (interact, interact, interact, [def]) . 
semw (interacted, interact, interact, [def] ) . 
semw (interaction, interact, interact, [def]) . 
semw ( interact ions , interact, interact, [def]) . 
semw ( interacts , react, interact, [def] ) . 
-semw (join , attach, attach, [def]) . 
semw(joined , attach, attach, [def]) . 
semw (joining, attach, attach, [def] ) . 
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semw 
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semw 
semw 
semw 
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joins, attach, attach, [def ]) . 
juncture, attach, attach, [def] ) . 
liberate, release, release, [def]) . 
liberated, release, release, [def] ) . 
liberates, release, release, [def] ) . 
liberation, release, release, [def] ) . 
limit, inactivate, inactivate, [def] ) . 
limitation, inactivate, inactivate, [def] ) . 
limited, inactivate, inactivate, [def] ) . 
limits, inactivate, inactivate, [def]) . 
link, attach, attach, [def] ) . 
linked, attach, at tach, [def] ) . 
linking, attach, attach, [def] ) . 
links, attach, attach, [def] ) . 
mediate, promote, promote, [def] ) . 
mediated, promote, promote, [def] ) . 
mediates, promote, promote, [def] ) . 
mediation, promote, promote, [def] ) . 
methylate, createbond, methylate, [def ] ) . 
methylated, createbond, methylate, [def] ) . 
methylates, createbond, methylate, [def]) . 
methylation, createbond, methylate, [def] ) . 
modification, modify, modify, [def] ) . 
modified, modify, modify, [def]) . 
modifies, modify, modify, [def]) . 
modify, modify , modify, [def]) . 
modifying, modify, modify, [def]) . 
mutate, modify, mutate, [1] ) . 
mutated, modify, mutate, [1]) . 
mutates , modify , mutate, [1]) . 
mutating, modify, mutate , [1]) . 
mutation, modify , mutate , [1] ) . 
overexpressed, generate, overexpress, [def] ) . 
overexpresses , generate , overexpress , [def]) . 
overexpressing, generate , overexpress , [def]) . 
overexpress, generate, express, [def] ) . 
overexpress ion, generate , overexpress , [def]) . 
pair, attach, attach, [def] ) . 
paired, attach, attach, [def] ) . 
pairing, attach, attach, [def]) . 
pairs , attach, attach, [def] ) . 

phosphorylate, createbond, phosphorylate, [def]) . 
phosphorylated, createbond, phosphorylate, [def] ) 
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semw 
semw 
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phosphorylates , createbond, phosphorylate , [def ] ) . 
phosphorylation, createbond, phosphorylate, [def]). 
precede, cause, cause, [def] } . 
preceded, cause, cause, [def] ) . 
precedes, cause, cause, [def]). 
preceding, cause, cause, [def] ) . 
promote, promote, promote, [def] ) . 
promoted, promote, promote, [def] ) . , 
promotes , promote , promote , [def]) . 
promotion, promote, promote, [def]) . 
prompt, activate, activate, [def]) . 
prompted, activate, activate, [def] ) . 
prompting, activate, activate, [def] ) . 
prompts, activate, activate, [def] ) . 
react, react, react, [def] ) . 
reacted, react, react, [def]) . 
reaction, react, react, [def]) . 
reactions, react, react, [def] ) . 
reacts, react, react , [def ]) . 
regulate, signal, signal, [def]) . 
regulated, signal, signal, [def]) . 

B 



% B is regulated by 



— > 



, [def] ) 
[def] ) . 
[def] ) . 
, [def] ) 



regulates, signal, signal, [def]) . 
regulation, signal, signal, [def] ) 
release, release, release, [def]) . 
released, release, release, [def] ) 
releases, release, release, [def ] ) 
removal, breakbond, 'break bond ' 
remove, breakbond, 'break bond * , 
remove, breakbond, 'break bond ? , 
removes, breakbond, 1 break bond 1 
replace, substitute, substitute, [def]) . 
replaced, substitute, substitute, [def] ) . 
replacement, substitute, substitute, [def] ) 
replaces, substitute, substitute, [def] ) . 
repress, inactivate, inactivate, [def] ) . 
repressed, inactivate, inactivate, [def] ) . 
represses, inactivate, inactivate, [def] ) . 
repression, inactivate, inactivate, [def]) . 
require, cause, cause, [2 , rev] ) . 
required, cause, cause, [2, rev] ) . 
requirement, cause, cause, [2, rev]) . 
requires, cause, cause , [2 , rev] ). 
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semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 



requiring, cause, cause, [2, rev] ). 
restrain, inactivate, inactivate, [def ] ) . 
restrained, inactivate, inactivate, [def]) 
restrains, inactivate, inactivate, [def] ) . 
restraint, inactivate, inactivate, [def] ) . 
sensitization, activate, activate, [def]). 
sensitize, activate, activate, [def]) . 
sensitized, activate, activate, [def] ) . 
sensitizes , activate, 
separate , breakbond , 
separat ed , breakbond , 
separates , breakbond, 



activate, [def] ) . 
'break bond 1 , [def] ) . 
•break bond' , [def] ) 
'break bond' , [def] ) 



[def] ) . 
, [def] ) 



separation, breakbond, 'break bond*, [def]) 
sever, breakbond, 'break bond', [def]) . 
severance, breakbond, 'break bond 1 , [def] ) . 
severed, breakbond, 'break bond' , [def] ) . 
severs, breakbond, 'break bond' , [def] ) . 
signal, signal, signal, [def] ) . 
signaled, signal, signal, [def]) . 
signaling, signal, signal, [def]) . 
signals, signal, signal, [def ]) . 
split, breakbond, 'break bond 1 , 
splits, breakbond, 'break bond' 
splitting, breakbond, 'break bond 1 , [def]). 
stimulate, activate, activate, [def]) . 
stimulated, activate, activate, [def] ) . 
stimulates, activate, activate, [def] ) . 
stimulation, activate, activate, [def] ) . 
substitute, substitute, substitute, [def]) . 
substituted, substitute, substitute, [def] ) . 
substitutes, substitute, substitute, [def] ) . 
substitution, substitute, substitute, [def] ) 
suppress, inactivate, inactivate, [def] ) . 
suppressed, inactivate, inactivate, [def]) . 
suppresses, inactivate, inactivate, [def]) . 
suppression, inactivate, inactivate, [def]) . 
tie, attach, attach, [def]) . 
tied, attach, attach, [def] ) . 
ties , attach, attach, [def] ) . 
transcribe, generate, transcribe, [def] ) . 
transcribed, generate, transcribe, [def]) . 
transcribes, generate, transcribe, [def]) . 
transcribing, generate, transcribe, [def]) . 
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semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 
semw 



transcription., generate, transcribe, [def] ) . 

ubiquitinize , createbond, ubiquitinize , [def]) . 

ubiquitinize , createbond, ubiquitinize, [def] ) . 

ubiquitinized, createbond, ubiquitinize, [def] ) 

ubiquitinizes, createbond, ubiquitinize, [def] ) 

urge, activate, activate, [def ]) . 

urge, activate, activate, [def] ) . 

urged, activate, activate, [def]) . 

urges, activate, activate, [def]) . 

urging, activate, activate, [def] ) . 

form, attach, attach, [def] ) . 

forms , attach, attach, [def]) . 

formed, attach, attach, [def] ) . 

forming, attach, attach, [def]) . 

formation, attach, attach, [def]) . 

assemble, attach, attach, [def]) . 

assembles, attach, attach, [def]) . " 

assembled, attach, attach, [def]) . 

assembling, attach, attach, [def] ) . 

assembly, attach, attach, [def] ) . 

dissassemble , release , release , [def]) . 

dissassembles, release, release, [def]) . 

dissassembled, release, release, [def] ) • 

dissassembling, release, release, [def]) . 

dissassembly, release, release, [def]) . 

dissociate, release, release, [def]) . 

dissociates , release, release, [def]) . 

dissociated, release, release, [def] ) , 

dissociating, release , release , [def]) . 

dissociation, release, release, [def]) . 

recruit , attach, attach, [def]) . 

recruits, attach, attach, [def] ) . 

recruited, attach, attach, [def]) 

recruiting, attach, attach, [def] ) . 

recruitment , attach, attach, [def]) . 
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% edited Genome grammar - adapted from MedLEE 's grammar for use with MedLEE 

% this is to be used along with the genomics lexicon of substances, actions, 

% and relations. 

% revised March 16, April 5, 2 000 

% adjusted for tagged input 

:- multifile (wdef /3) . 

:- multifile (phrase/5) . 

%%%%%%%%%%%%%%%%%%%% Semantic Grammar for Genomics %%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% % 
% Written by Carol Friedman for the MedLEE System % 

% 

% Queens College of the City University of New York % 

% " % 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

% Highest Level Predicate - setn^sent - 1st arg. is target structure % 
% - 2nd arg. is a list of words in sentence* 

% - 3rd arg. is ' [] » % 

% Target structure: a frame or set of connected frames: % 

% the frame describes an action or several related actions; % 

% an action frame is a list consisting of the symbol 'action' % 

% followed by the code for the action and arguments. % 

% The arguments are either substances or actions; % 

% each substance slot consists of the name of the type of % 

% substance followed by the value for the substance; % 

% the substance slot may contain slots for several substances. % 

% Examples: % 

% Blocking of il-2 gene transcription by activated rapl. % 

% [action, inactivate, [protein, Rapl, [state, active] J , % 

% [action, transcribe, [x] , [gene, interleukin-2] ] ] % 

% % 
% The adapter protein crkl was associated with both phosphorylated cbl and the* 

% guanidine nucleotide- releasing factor c3g. % 

% [action, attach, [protein, CrkL] , % 

% [relation, and, [protein, Cbl, [state, phosphorylated] ] , % 
% [protein, guanidine nucleotide -releasing factor C3G, 

% [state, phosphorylated] ]] ] % 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% fail an unknown predicate 

- unknown fail) . 

- op (900, fy, [not, once]). % same priority and type as \+ 

- op {700, xfx, [\=, -<=]). % same priority and type as * or «» 
% snoop is generally used to find input string when using a DCG 

% the input string is used for constraints 

snoop (A, B, A, B) . 



sem_sent (P,§emlist , X) 

{assert (addstotal (0) ) } , 
sem_parse (P, Semlist,X) . 

sem _j)arse (Target, Semlistj 

sem_pat terns (P, Semi is t) . 

semjjarse (Target , Semlist,X) --> 
semjpatterns (P, Semlist) , 
sem_endornot (P, Target , X) . 



semjjarse ( [failure] ,_,X,_,_) 
addstotal (X)7 

sem_endornot (P, P,X) % P is target if there is an endmark 
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sem_endmark, 

{addstotal (x) } . % X is number of times reached endmark 
sem_endornot :- % did not reach endmark; update count and fail 

uptotal, fail. 
sem_endornot [failure] ,X, -( J :- 

addstotal (X) , % x is number of times reached 

X >^ 50. 



% Finding patterns 



sem_patterns (F, Semlist) 

pattern (Fl, Semlist) , 

{Fl \= (]}, % 1st finding should not be empty 

morepattern (R, F2 , Semlist) , % connected patterns 
{getrelation (R, Fl , F2 , F) } . 



* The action pattern types are: pattern, nounactionpatt, actpatt, and * 

* nounactpatt. * 

* pattern --> actionarg (Al) * 

* active or passive verb * 

* actionarg (A2) . * 

* pattern nounactionpatt. * 

* pattern --> actpatt. * 
**************************^ 

9 

% pattern is saved in a symbol table (st) / check for success/failure 1st 
% Case where pattern is in st and has been successful 
pattern (Fmt,_) --> checks t (pat tern, __, s, Fmt) . 
% Case where pattern is in st as a failure, 
pattern (_,_) checks t (pat tern> f, _) , {l, fail}. 

% pattern 5:- an action pattern with a nominal verb 
% Psl cleavage by zvad. 

% apoptosis- induced cleavage of PS2 by zDEVD. 
pattern (F, Semlist) 
snoop (SO, SO) , 
{ \+ checkst (pattern, 5,_,_, SO, _) , 
actionchk (Semlist) }, 
nounactionpatt (F) , 
snoop ( S , S ) , 
{ addst (pattern, 5, s,F, SO, S) 
}. 



% pattern 1 : an action/substance acts on an action/substance 

% the activation of rapl inhibits the expression of il-2 

% rapl functions as a negative regulator of tcr -mediated il-2 gene 

% transcription. 

pattern (F, Semlist) snoop (SO , SO) , % SO is the input string 

{ \+ checkst (pattern, 1,_,_, SO, _J , 
actionchk (Semlist) , 
connectchk (Semlist) } , 
actionarg (Al) , 
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connectact (Sem, [v,vp,ved] , Target , Features) , 
actionarg (A2) , 

snoop(S,S), lending sentence list 
{ member(def, Features), 

modlist ( [Al. A2,site] ,Mods) ; 
member (rev, Features) t 
modlist ( [A2,A1, Site] ,Mods) ) , 
frame (F, action, Target , Mods ) , 
addst (pattern , 1 , s , F, SO, S) 



% pattern 2: an action/substance was acted on by an action/substance 
% The aggregation of bad was suppressed. 

% The aggregation of bad was suppressed by the phosphorylation of jnk. 
% Grb2 was associated with Cbl . 

% Apoptosis -associated cleavage of endogenous PS1 was blocked by the 
% treatment with zVAD. 
pattern (F, Semlist) 

snoop (SO , SO) , % SO is the input string 
{ \+ checks t (pattern, 2 /__,_, SO, _) , 
act ionchk (Semlist) , 
connectchk (Semlist) }, 
actionarg (A2 ) , 
sem_beterm{_) , % was 

connectact (Sem, [ven] , Target , Features) , %activated 
optbyarg(Al) , 

snoop (S,S), %ending sentence list 
{ (member (def, Features), 

modlist ( [Al,A2,Site] ,Mods) ? 
member (rev, Features) , 
modlist { [A2, Al, Site] ,Mods) ) , 
frame (F, action, Target, Mods) , 
addst (pattern, 2 , s, F, SO, S) 

}■ 

% pattern 3 : an action/ substance acted on an action/ substance 

% bad induced phosphorylation of fyn. 

% tcr and cd2 8 -mediated il-2 transcription. 

pattern (F, Semlist) --> 

snoop (SO, SO) , 
{ \+ checkst (pattern, 3,_,_ ,S0,_), 

act ionchk (Semlist) , 

connectchk (Semlist) }, 

actionarg (Al) , % substance or basic action 
% optdash, 

connectacts (Sem, [vp, ven, ved] , Target, Features) , % 'activated' 
% optof , 

actionarg (A2) , % had pattern here 
snoop (S, S) , 
{ (member (def, Features), 

modlist ( [Al,A2,Site] ,Mods) ; 
member (rev, Features) , 
modlist ( [A2,Al,Site] ,Mods) ) , 
frame (F, action, Target , Mods) , 
addst (pattern, 3, s, F, SO, S) 
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% pattern 4: a simple action pattern with an active verb, 
% Activated Raf-1 phosphorylates MEK-l „ 
pattern (F, Semlist) --> 
snoop (SO , SO) , 

%check that sentence has an action word/phrase 
{ \+ checks t (pattern, 4,_,_,S0,_), 

actionchk {Semlist) }, 

actpatt (F) , 

snoop (S, S) , 
{ addst (pattern, 4 , s , F, SO , S) 

}- 

% no more patterns - save failure 

pattern (_,_) --> addst (pattern, 0 , f , {! , fail}. 

% sem_morepattern (-Rel , -P, +Semlist, +S0, +S) : 
% Rel is a relation and its value frame; 

% P is the remaining patterns, Semlist is the list of semantic classes 

% in sentence 

% if have a series of ' ,'s, use the relation "and" or "or" if in the nest 
% and make that the relation 
morepattern(R, F, Semlist) 

sem_relat ion (Rl , Modi) , %relation and modifiers 

sern_patterns (F, Semlist) , 

{( frame ( F , rel , Con j 2 , __) , % F contains, nested relation 

(Conj2 o and; Conj2 =» or), f rame (Rl, rel ,',',_) , % Rl relation frame 
frame (R , rel , Con j 2 , _) % value of relation is Conj2 

Rl \- [] / % where do Type, Value and Mods2 come from? 
f rame (Rl, Type, Value ,Mod2) , % get components of original relation 
mergemods (Modi , Mod2 , Mods ) , 
( Mods = [] / frame (R, rel, Value, []) , i; 

%f rame (R, rel, [Value | Mods] ,[] ) % make it rel connector with rel mod 
R = [rel, [Value | Mods] ] 

) 

>■ 
}■ 

% no more findings 
morepattern( [] , [] ,_,S,S) . 

% actionarg is the argument of pattern 

% actionarg is either a substance or a basic action 

% actionarg is saved in a symbol table (st) ; check for success/failure 1st 
% Case where actionarg is .in st anci have been successful 
actionarg(A) checkst (actionarg, s , A) . 

% Case where actionarg is in st as a failure, 
actionarg (_) --> checkst (actionarg, f/_J , {.», fail}. 

% actionarg 1 : a substance or substances 
% Rapl, active Rapl, Cbl and Crkl 

actionarg(A) snoop (SO, SO) , % SO is the input string 

{ \+ checkst (actionarg, 1 , SO ,_)} , 

substances (A) , 

snoop (S, S) , 
{ addst (actionarg, 1, s, A, SO, S) }. 
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% actionarg 2: a process like apoptosis, or a disease 
actionarg(A) snoop (SO, SO) , % SO is the input string 

{ \+ checkst (actionarg ,2 ( _ (- , SO 
processpatt (A) , 
snoop <S, S) , 
{ addst {actionarg, 2, s, A, SO, S) 

}. 

% actionarg 3 : a nominal action pattern 
% Etoposide- induced apoptosis. 
% Etoposide -induced PS1 cleavage by zVAD. 
actionarg(A) --> snoop (SO , SO) , % SO is the input string 

{ \+ checkst (actionarg, 3 SO, _) }, 

nounactionpatt (A) , 

snoop (S, S) , 

{addst (actionarg, 3 , s, A, SO, S) 

}. • 

% actionarg 4: the object of the nominal action is an actionarg 
% Blocking of XL- 2 Gene transcription by activated rapl . 
actionarg(A) snoop (SO, SO) , % ' SO is the input string 

{ \+ checkst (actionarg, 4 ,_/__, SO, _J }, 
action (Sem, [n,ving] , Target, Features) , 
[of] , 

actionarg (Al) , 
optbyagent (A2) , 
snoop (S, S) , 
{ (member (def , Features) , 
modi is t ( [A1,A2] ,Mods) ; 
member (rev, Features) , 
modlist( [A2,A1] ,Mods) ) , 
frame (A, action, Target , Mods) , 
addst (actionarg, 4, s, A, SO, S) 



% no more actionarg - save failure ■ 

actionarg (_) -~> addst (actionarg, 0 , f , {!, fail}. 

% nounactionpatt is a nominal action pattern which allows for left and right 
% modifiers 

% 11-2 gene transcription mediated by tcr and cd28 was inhibited by rapl. 

% Activated rapl functions as a negative regulator of tcr and cd- 2 8 -mediated 

il_2 transcription. 

% nounactionpatt is saved in a symbol dablfe (at); check for success/failure 1st 
% Case where nounactionpatt is in st and has been successful 
nounactionpatt (A) --> checkst (nounactionpatt, s, A) . 
% Case where nounaction patt is in st as a failure, 
nounactionpatt (_) checkst (nounactionpatt, f,_) , {!, fail}. 

nounactionpatt (P) --> snoop (SO, SO) , % SO is the input string 

{ \+ checkst (nounactionpatt , l /_,__, SO, _)} , 
actionlmod (L, Synl) , 
nounactionunit (A) , 
actionrmod (R, Syn2) , 
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snoop (S, S) , 
{ (Synl = ved, append (R, [A] , RA) , 
append (L, RA, P) ; 
Synl = ving, append (R, (Aj , RA) , 
L = [action, Verb, Object] , 
modlist(RA, Object, Mods)., 
frame (P, action, Verb, Mods)), 
addst (nounactionpatt, 1, s, P, SO, S) } . 
% no more nounactionpatt - save failure 

nounactionpatt (_) addst (nounactionpatt , 0 , f ,_) , {!, fail}. 

% the central unit of the nounactionpatt is a nounactpatt or a process 
nounactionunit (A) nounactpatt (A) . 

nounactionunit (A) --> process (A) . 

% left modifiers of nounactpatt 
% Zvad- inhibited cleavage pf Psl 
actionlmod (L>, ved) --> substances (S) , 

optdash, 

action (Sem, [ved] , Target , Features ) , 
{ frame (L, action, Target, [S] ) }. 

% apoptosis induced cleavage of ps2 
actionlmod (L, ved) --> process(S), 

optdash, 

action (Sem, [ved] , Target, Features ) , 
{ frame(L, action, Target, [S] ) }. 



% apoptosis causing cleavage of Psl by Zvad. 
% heed to invert the order of nounactpatt and actionlmod 
actionlmod (L, ving) processobject (A) , % process or nounacpatt, 

action (Sem, [ving] , Target , Features ) , 
{ frame (L, action, Target, A) }. 

actionlmod ([] -->[]. 

actionrmod(R, ved) --> action (Sem, [ved] , Target, Features) , 

byagent(A), % may have to add ving to actionrmod 
{ frame (R, action, Sem, A) }. 
actionrmod ( EJ , ) --> CI. 



% 

% actpatt parses a simple action between substances expressed by an active verb 
% 

% actpatt is saved in a symbol table (st) ; check for success/failure % % 1st 

% Case where actpatt is in st and has been successful 

actpatt(F) --> checkst (actpatt s, F) . 

% Case where actpatt is in st as a failure. 

actpatt(_) --> checkst (actpatt , , f, ) , {!, fail}. 



% actpatt 1 : substance acts on substance 
% PDK1 phosphorylates p70s6k at Thr22 9 
actpatt (F) --> 

snoop (SO, SO) , % SO is the input string 
{ \+ checkst (actpatt, l ,_,_,S0,_)}, 
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substances (Al) , 

sem_whichrel , % opt 1 that * 

action {Semclass , [vp,ved] , Target , Features) , 

prepopt<. % added prepopt to allow action 'to 1 and 'with' substance 
substances (A2 ) , 
siteinfo (Site) , 
snoop (S, S) , 
{ (member (def, Features) , 
modlist( [Al, A2,Site] ,Mods) ; 
member (rev, Features) , 
modlist( [A2, Al,Site] ,Mods) ) , 
frame (F, action, Target , Mods) , 
addst (actpatt , 1 , s, F, SO, S) 

}. 

% acpatt 2: 

% Substance was bound by Substance 

% Substance was associated to substance. 

% F can give either first or second place to the second argument; 
% a byagent gets first position; prepagent gets second. 
% Phosphorylated Fyn was associated with Cbl , 

actpatt (F) --> 

snoop (SO, SO) , % SO is the input string 
{ \+ checkst (actpatt , 2 SO, _)} , 
substances (Al) , 
sem_beterm(_) , 

action (Semclass , [ven] , Target , Features) , 
optbyorprepagent (Position, A2) , 
snoop (S, S) , 
{ (member (def, Features), 

(Position^ second, modi is t ( [Al,A2,Site] ,Mods) ; 
Position^ first, modi is t ( [A2,Al,Site] ,Mods) ) ; 
member (rev, Features) , 

(Position=second, modlist ( [A2,Al,Site] ,Mods) ; 
Positions first, modlist ( [Al, A2 , Site] , Mods) )) , 
frame (F, action, Target, Mods ) , 
addst (actpatt , 2, s, F, SO, S) 

}• ••• 

% no more actpatt - save failure 

actpatt (__) --> addst (actpatt , 0, f,_) , {!, fail}. 
% 

% nounactpatt parses a simple action between substances expressed by a nominal 

% verb 

% 

% nounactpatt is saved in a symbol table (st) ; check for success/failure 1st 
% Case where nounactpatt is in st and have been successful 
nounactpatt (Fmt) checks t (nounactpatt ,_, s , Fmt) . 

% Case where nounactpatt is in st as a failure, 
nounactpatt (_) --> checks t (nounactpatt ,_, f, _) , {!, fail}* 

% nounactpatt l: 

% Jnk phosphorylation of Bad 

nounac tpa t t ( F ) - - > 

snoop (SO, SO) , % SO is the input string 
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{ \+ checkst (nounactpatt, 1,_,_, SO, _) }, 
substances (Al) , 
{aminoacidtest (Al) } , 
optdash, 

action (Semclass, [n] , Target , Features) , 
of object (A2) , 
% siteinfo(Site) , 

snoop (S, S) , 
{ (member (def , Features) , 

modlist ( [A1,A2, Site] , Mods) ; 
member (rev, Features) , 
modlist ( [A2,Al,Site] ,Mods) ) , 
frame (F, act ion, Target , Mods) , 
adds t (nounactpat t ,l,s,F,S0,S) 

}• 

% nounactpatt 2 : the binding of substance and substance 
% association of Fyn and Cbl . 

% the reason for having this as a separate pattern is to 

% prevent ! Fyn and Cbl' from being parsed together as substances 

nounactpatt (F) --> 

snoop(S0,S0) , % SO is the input string 
{ \+ checks t (nounactpatt, 2 ,_#_#S0,_) }, 
action (attach, [ving,n] , Target , Features) , 
of objectl (Al) , 
andobject (A2) , 
% siteinf o (Site) , 

snoop (S , S) , 
{ modlist ( [Al, A2,Site] ,Mods) , 
frame (F, action, Target , Mods) , 
addst (nounactpatt , 2 , s , F, SO , S ) 

}. 

% nounactpatt 3 : 

% The cleavage of protein by substance, 

% Association of phosphorylated Fyn with Cbl 

% Tyrosine phosphorylation of Cbl by kinase 

% optbyorprepagent determines the order of arguments; byagent is placed first ; 
% prepagent is placed second 

nounactpatt (F) --> 

snoop(S0,SQ) , % SO is the input string 
{ \+ checkst (nounactpatt , 3 #_/_/S0,_)}, 
actionof (F) , 
snoop ( S , S ) , 
{ addst (nounactpatt, 3 ,s,F,S0,S) }. 

actionof (F) 

siteinfo (Site) , 

action (Semclass, [ving,n] , Target , Features) , 
optof object (Al) , 
optbyorprepagent (Position, A2 ) , 
snoop (S, S) , 
{ (member (def, Features) , 

(Posit ionise cond, modlist ( [Al,A2,Site] , Mods) ; 
Position= first, modlist ( [A2,A1, Site] , Mods)) ; 
member (rev, Features) , 
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(Position^second, mbdlist ( [A2,Al,Site] , Mods) ; 
Position* first, modlist ( [Al , A2 , Site] , Mods) )) , 
frame (F, action, Target , Mods ) 

}• 

% nounactpatt 4 : 

% Fyn association with Cbl . 

nounactpatt (F) --> 

snoop(S0,S0) , % SO is the input string 
{ \+ checkst (nounactpatt , 4 , SO , }, 

substances (Al) , 

action (Semclass, [ving,n] , Target , Features) , 
withobject (A2) , 
% siteinfo (Site) , 
snoop (S, S) , 
{ modlist ( [A1,A2, Site] ,Mods) , 
f rame (F, action, Target , Mods) , 
addst (nounactpatt, 4 , s , F, SO, S) 

}• 

aminoacidtest (X) :- X \= [aminoacid |_J . 

% nounactpatt 5 : 

% IL-2 gene transcription 

% Cbl phosphorylation [by substance or action] 
nounactpatt (F) --> 

snoop (SO , SO) , % SO is the input string 
{ \+ checkst (nounactpatt, 5 ,_,_,S0,_) }, 

substances (A2) , 

optdash, 

action (Semclass, [nj , Target , Features) , 

optbyagent (Al) , 
% siteinfo (Site) , 

snoop ( S , S ) , 
{ (member (def, Features), 

modlist ( [Al,A2 # Site] ,Mods) ; 

member (rev, Features) , 

modlist ( [A2,Al,Site] ,Mods) ) , 

frame (F, action, Target , Mods) , 

addst (nounactpatt , 5 , s,F,S0,S) 

}• 

% nounactpatt 6 : 

% fyn-cbl association. 

nounactpatt (F) 

snoop (SO, SO) , % SO is -,the input string 
{ \+ checkst {nounactpatt , 6 SO, _) }, 

substances (Al) , 

optdash, 

substances (A2) , 

action (Semclass, [n,ving] , Target , Features) , 
% siteinfo (Site) , 
snoop (S, S) , 
{ modlist ( [A1,A2, Site] , Mods) , 
frame (F, action, Target , Mods) , 
addst (nounactpatt ,6,s,F,S0,S) 

}• 
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% nounactpatt 7 : 

% Cbl phosphorylated by fyn. 

nounactpatt (F) 

snoop (SO , SO) , % SO is the input string 
{ \+ checkst (nounactpatt, 7 ,_r_*S0,_)}, 
substances (Al) , 

action (Semclass , [ven] , Target , Features) , 
{by] , 

substances (A2) , 
% siteinf o (Site) , 

snoop(S, S) , 
% { (member (def. Features), 

{ modi is t ( [A2,A1, Site] , Mods) , 
% member (rev, Features) , 

% modlist ( [Al,A2,Site] ,Mods) ) , 

frame (F, action, Target , Mods) , 
addst (nounactpatt, 7 , s , F, SO , S) 

}• 

% no more nounactpatt - save failure 

nounactpatt M addst (nounactpatt , 0, f,_) , {!, fail}. 



connectact (Sem, Syn, Target , Features) 

action (Sem, Syn, Target , Features) , 
{member (Sem , [cause, causel, activate, inactivate, signal, substitute , promote] ) } . 

connectact s (Sem, Syn, Target , Features) 

connectact ( Sem, Syn, Target , Features ) . 

% aminoacid like tyrosine : ex. : tyrosine Cbl phosphorylation 
% at position 201 Thr 
siteinfo(S) aminoacid (A) , 

{frame (S, site, [A] , [] ) } . 

- - > 

sitepreps, % 'in', 'at' 
position (S) . 
siteinfo([]) [] . 

- -> prep term (in, _) . 
--> prep term ( at, _J . 
position(S) [position] , 

sem_integerterm (I) , 
{ frame (S, site, I, [] ) } . 



siteinf o (S) 



sitepreps 
sitepreps 



% The definitions of actions refer to the lexicons lexsynact.pl and lexsemact.pl 
% Sem is the semantic class; Syn is the syntactic class 
% F is the target 

% oneaction was added for use with moreaction to allow parsing of conjoined 
% actions 

oneaction (activate, Syn, F, Features) activateterm (Syn, F, Features) , {!}♦ 

oneaction (attach, Syn, F, Features) - - > attachterm (Syn, F, Features) , { ! } . 

oneaction (breakbond, Syn, F, Features) --> breakbondterm (Syn, F, Features) ,{.'}. 
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oneaction (createbond, Syn, F, Features) 
oneact ion (inactivate, Syn, F, Features) 
oneaction (react, Syn, F, Features) 
oneaction (release, Syn, F, Features) 
oneaction (signal , Syn, F, Features) 
oneaction (substitute, Syn, F, Features) 
oneaction (transcribe, Syn, F, Features) 
oneaction (promote, Syn, F, Features) 
oneaction (generate, Syn, F, Features) 
oneaction (cause , Syn , F , Features ) - - > 



- > crea tebondt erm ( Syn , F , Features ),{!}. 
-> inactivateterm(Syn, F, Features) , { ! } . 
-> reactterm (Syn, F, Features) ,{!} . 

releaseterm(Syn, F, Features) , { ! } . 
-> signalterm(Syn, F, Features) , {l } . 
-> substituteterm(Syn, F, Features) , { t } . 
-> transcribeterm (Syn , F, Features) , { ! } . 
-> promoteterm (Syn, F, Features) , { ! } . 
-> generateterm (Syn, F, Features) , { ! } - 
cause term (Syn, F, Features) , { ! } . 



action (activate, Syn, F, Features) activateterm (Syn, Al , Features) , 

moreaction (Conj , Args) , 
{Conj = [] , F -Al; 

Conj\= [] , mergemods ( [ [action, Al] ] , Args, Actions) , 
frame (Fl, relation, Conj , Actions) , F = [Fl] } . 
action (attach, Syn, F, Features) --> attachterm(Syn, Al ^Features), 

moreac t ion ( Conj , Args ) , 
{Conj [J ,F =A1; 

Conj\=[] , mergemods ( [ [action, Al] ] , Args , Actions) , 
frame (Fl, relation, Conj Actions) , F - [Fl] } . 
action (breakbond, Syn, F, Features) breakbondt erm (Syn, F, Features) , 

moreact i on ( Conj , Args) , 
{Conj * [] , F -Al; 

Conj\= [] , mergemods ( [ [action, Al] ] , Args, Actions) , 
frame (Fl, relation, Conj , Actions) , F= [Fl] } . 
action (createbond, Syn, F, Features) --> createbondterm (Syn, F, Features) , 

moreaction (Conj , Args) , 
{Conj - [] ,F «A1; 

Conj\=[] , mergemods ([ [action, Al] ] , Args, Actions) , 
frame (Fl, relation, Conj , Actions) , F - [Fl] } . 
action (inactivate, Syn, F, Features) inactivateterm (Syn, F, Features) , 

moreaction (Conj , Args) , 
{Conj ■ [] ,F =A1; 

Conj\- [] , mergemods ( [ [action, Al] ] , Args, Actions) , 
frame (Fl, relation, Conj , Actions) , F = [Fl] } . 
action (react, Syn, F, Features) --> reactterm (Syn, F, Features) , 

moreaction (Conj , Args) , 
{Conj = [] , F =A1 ; 

Conj\= [] , mergemods ( [ [action, Al] 3 , Args, Actions) , 
frame (Fl, relation, Conj , Actions) , F= [Fl] } . 
action (release, Syn, F, Features) release term (Syn, F, Features) , 

moreaction (Conj ,Args) , 
{Conj = [] ,F -Al; 

Conj\= [] / mergemods ( [ [action, Al] ] , Args, Actions) , 
frame (Fi, relation, Conj , Actions) , F - [Fl] } . 
action (signal, Syn, F, Features) --> signal term (Syn, F, Features) , 

moreaction (Conj , Args) , 
{Conj m [] ,F =A1; 

Conj\=:[] , mergemods ( [ [action, Al] ] , Args, Actions) , 
frame (Fl, relation, Conj , Actions) , F = [Fl] } . 
action (substitute, Syn, F, Features) --> subs tituteterm (Syn, F, Features) , 

moreaction (Conj , Args) , 
{Conj = [],F,=A1; 

Conj\=[] , mergemods ( [ [action, Al] ] , Args, Actions) , 
frame (Fl, relation, Conj , Actions) , F » [Fl] } . 
action (transcribe, Syn, F, Features) transcribeterm (Syn, F, Features) , 
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moreaction(Conj , Args) » 
{Conj = i] f F =A1; 

Conj\*[] , mergemods {[ [action, Al] ] , Args , Actions) , 
frame (Fl, relation, Conj , Actions) , F « [Fl] } , 
action (promote, Syn, F, Features) --> promoteterm (Syn, F, Features) , 

moreaction (Conj , Args) , 
{Conj = [] i F =A1; 

Conj\-[] , mergemods ([ [action, Al] ] , Args , Act ions) , 
frame(Fl, relation, Conj , Actions) , F= [Fl] } . 
action (generate, Syn, F, Features) --> generate term (Syn, F, Features) , 

moreaction (Conj , Args) , 

{Conj = [] ,F =A1; 

Conj\= (] , mergemods ( [ [action, Al] 1 , Args, Actions) , 
frame (Fl, relation, Conj , Actions) , F« [Fl] } . 
action (cause, Syn, F, Features) --> cause term (Syn, F, Features) , 

moreaction (Conj , Args) , 
{Conj = [3 ,F «A1; 

Conj\=[] , mergemods ([ [action ,A1] ], Args, Actions) , 
frame (Fl, relation, Conj , Actions) , F = [Fl] } . 

% binds, phosphorylates and activates 
moreaction (Conj , Args) sem_conj rest (Conj 1) , 

oneact ion (Sem, Syn, A, Features) , 

moreaction (Conj 2 , Al is t) , 
{Conj2 - [] , Alist= [j ,Conj=Conjl, Args = [ [action, A] ] ; 

Conj 2 \= [] , Conj - Conj 2, 

addmod( [action, A] , Alist,Args) } . 

moreaction ( [] , [] , S,S) . 

passiveconnect (Sem, [ven] , Target , Features) --> 

sem_beterm (_) , 

connectact (Sem, [ven] , Target , Features) . 



processpatt (A) disease (A), 

processpatt (A) process (A) . 

. - • 

optbyorprepagent (first , A) byagent (A) » 

optbyorprepagent (second, A) --> prepagent (A) . 

optbyorprepagent (first , A) --> [] , {A = x} . 

byorprepagent (first , A) --> byagent (A) . 
byorprepagent (second, A) --> prepagent (A) . 

optbyagent (A) --> byagent (A) . 
optbyagent (A) --> [] , {A = [x] } . 

byagent (A) --> [by], 

substances (A) . 
byagent (A) - - > [by] , 

nounactionpatt (A) . 
prepagent (A) --> withobject (A) . 
prepagent (A) --> toobject(A). 
% prepagent (A) andobject (A) . 

prepagent (A) of object (A). 
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% optprepagent (A) byagent (A) 



optprepagent (A) 
optprepagent (A) 
optprepagent (A) 
optprepagent (A) 
optprepagent (A) 

of object (A) --> 

ofobject(A) --> 

of object (A) - -> 



- - > 



- > 

- - > 

- -> 
--> 



ofobject (A) . 
withobject (A) 
toobject(A) . 
andobject (A) . 
[], {A= [x]}. 



[of] , 

nounactionpatt (A) 
[of] , 

substances (A) . 
[of] , 



actionof (A) . 
of ob j ectX (A) - - > [of] , substance (A) 
optof object (A) --> ofobject(A). 
optof object ( [x] ) - --> U . 



% to parse Binding of Fyn and Bad 



processobject (A) process (A) . % can be expanded to nounactpatt, etc 



% optwithobject (A) 
% optwithobject (A) 
withobject (A) 
toobject (A) 
andobject (A) 
prepobject (A) 
prepobject (A) 



- - > 

- > 

- - > 

- - > 

- - > 



withobject (A) . 

> n f {a - [x] } . 

[with] , substances (A) 
[to] , substances (A) . 
[and] , substances (A) . 
[to] , substances (A) . 
[with] , substances (A) 



optbyarg(A) --> [by], 

actionarg(A) , 
--> substances (A) . 

- - > [] , {A = [ ? substance unknown']} 



optbyarg (A) 
optbyarg (A) 



prepopt 
prepopt 
prepopt 
prepopt 
prepopt 



[to] . 
[with] 
--> [by] . 
[of] . 

--> [] . 



% toopt 
toopt 

toopt — > 
% withopt 
withopt --> 
withopt 



[to] 
[] • 



[with] 
[] . 



optdash --> [ 1 - ' ] . 

optdash [ ] . 

optof [of] . 

optof --> [ ] . 

/* optactionarg (A) --> actionarg(A) 

optactionarg( [] ) --> [] . */ 

optactionarg (A) - - > 
actionarg (A) . 
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% there is no further argument 
optactionarg (A) 

[] , 

{A = [J }. 

% substances (F) substance { F) . 

% substances (F) --> substance (Pi) , 

% moresubstances (Conj , Plist) , 

% { Conj « [] , Plist - [] , F m PI 

% - Conj \= [] , 

% mergemods (Pi , Plist, Args) , 

% frame (F, relation, Conj , Args) 

% }. 

% substances (F) substanceswithmods (F) . 

% substances (A) --> 

% proteins (A) . 

% subswithmods . txt 



% substances is saved in a symbol table (st) ; 
% check for success/failure 1st 

% Case where substances is in st and has been successful 
substances (Fmt) --> checks t (substances, _, s , Fmt) . 
% Case where substance is in st as a failure, 
substances (_J --> checkst (substances , f,_) , {l, fail}. 

substances (F) --> 

snoop (SO , SO) , 
{ \+ checkst (substances, 1, s,_, SO, _) } , 
lmods (Lmods) , % left modifiers 

(severalsubstances ( [relation, Conj, First | Rest] ) , % conjoined substances 

rmods (Rmods) , right modifiers 

% create list of lists containing distributed mods, of substances 

{ distributesubs (Dist , [First | Rest] , Lmods , Rmods ) , 
% check Lmods - "no" Fl or F2 should be changed to no Fl and rvo F2 

fixconj (Lmods, [rel,Conj] , [rel,C2] ) , 
%splice ( [Conj , Dist] , F) 

frame ( F , relation , C2 , Dist ) } ; 
% substances and modifiers without conjunction 

substance (Dl) , 

rmods (Rmods) , 

{Dl « [Typel, Substancel | ModsDl] , 
delete (ModsDl, [] , ModsD2), 
append ( [Lmods , Rmods] , ModsD2 , Al lmods 1 ) , 
delete (Al lmods 1, [] , Allmods2) , 
frame (F, Typel , Substancel , Allmods2 ) }) , 
snoop ( S , S ) , 

{addst (substances, i,s,F, SO, S) } . 

/* substances (F) snoop (SO, SO) , 

{\+ checkst (substances, 3 , s SO , _) } , 
complex (F) , 
{addst (substances, 3 , s, F, SO, S) } . 

*/ 

% no more substances- save failure 

substances (_) --> addst (substances , 0, f, _) , {l, fail}. 
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several substances (F) --> substance (PI) , 

moresubstances (Conj , Plist) , 
{ Conj = H , Plist = [] , F = PI / 
Conj \= [] , 

addmod (PI, Plist, Args) , 
frame (F, relation, Conj , Args) 

>■ 

% ' X, Y, and Z' 
moresubstances (Conj , Args) --> sem_conj rest (Conj 1) , 

substance (PI) , 

moresubstances (Conj 2 , Plist) , 
{ Conj2 = [3, Plist « [] , Conj * Conjl, Args « [Pi] ; 
Conj 2 \= [] , conj2\= /, Conj - Conj 2, 
addmod (Pi, Plist, Args) 

% to allow for substances with modifiers 
moresubstances (Conj 1 , Args) --> sem_conj rest (Conj 1) , 

substances (Args) . 



moresubstances ( U , U ) --> [] . % no conjunction 



% distributesubs 

% distributes left mods and right mods over list of findings creating 
% list of lists of findings with mods 
distributesubs ([],[] #__#_) !. 
distributesubs (Dist, [Dl | Tail] , Lmods , Rmods) :- 

distributesubs (Dist2, Tail, Lmods,Rmods) , %distributed for remainder 

Dl = [Typel, Substancel |ModsDl] , 

append ( [Lmods , Rmods] , ModsDl , Allmodsl ) , 

delete (Allmodsl, [] ,Allmods2) , 

frame (D, Typel , Substancel , All mods 2) , 

append ( [D] ,Dist2, Dist) . % Combine findings to get list of findings 

Imods(A) --> stateterm(F) , 

{frame (A, state, F, [] ) } . 
lmods ([]) --> sem_measure (_) . 
lmods { [] >-->[]. 
rmods ( □ ) [J . 

stateterm(F) acclex (state, F) . 

% for past participle of createbond and breakbond actions, the target 
% is the word. ex. : phosphorylated, dephosphorylated, methylated 
stateterm(F) --> 

snoop (SO, SO) , % get the initial string 

createbondterm ( [ven] , 

{SO - [F|_]}. %get the first word of the string 
stateterm(F) --> 

snoop (SO , SO) , % get the initial string 
breakbondterm ( [ven] , _) , 

{SO = [P|_]}- %get the first word of the string 
% may have to add attachterm for 'bound* 
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% Taken from MedLEE grammar to handle 1 3 cm ' 
senwneasure (M) 

sem_premeasure , 
sem_quantityterm (N) , 
opt dash, 

sem_measure term (Unit) , 
{ frame (M, measure , [N,unit], [] ) }. 
% complex predicates added November 8, 1999 
% CrkL-C3G complex 
% ras : raf-i association 
% ras: raf-1 complexes 
% shc-grb2-sos 
% TCR/CD3 complex 

% p/CAF-p/CIP-CBP/p300-SRC-l complex 

% Ras: Raf-1 complexes 

complex (C) proteins (P) , 

{P = [A,B|J ,A \= [] , B \* [3 } t 
optcomplexword, 
{ frame (C, complex, [P] , [] ) } . 

% a complex of NFAT4 .with calcineurin 
complex (C) --> complexword, 

complexarg (A) , 

{frame (C, complex, [A] , [] ) } . 

complexarg (A) --> [of], proteins (A) . 

complexarg (A) --> [between], proteins (A) . 

% a complex between MyD8 8 , IRAK-2, and the IL-lRs 

complexarg (A) --> action (contain) , proteins (A) . 

% Complexes containing BOB.l/OBF.l and Oct proteins 

proteins(P) --> protein (A) , 

moreproteins (PI) , 

{(A\*[]; append ( [A] ,P1,P) ) } . 

moreproteins (A) --> proteinconnector, 

proteins (A) » 



moreproteins ( [] ) --> 
proteinconnector --> 
proteinconnector --> 
proteinconnector > 



[' 

V 



/•] 

: '] 



- - > 



% connector 
% connector 
proteinconnector (C) 
optconnector --> 
optconnector --> 



complexword 
complexword 
complexword 



- - > 

- - > 

- - > 



[and] . 

[with] . 
proteinconnector . 

C3 . 



taken out not to conflict with relation in 

moresubstances 



[complex] . 

[complexes] . 

[ » signaling complexes ' ] 



optcomplexword 
optcomplexword 



--> complexword 
--> [] . 



substance (A) --> protein (A) . 
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substance (A) 
substance (A) 
substance (A) 
substance (A) 
substance (A) 
substance (A) 
substance (A) 
substance (A) 
substance (A) 
substance (A) 
substance (A) 
substance (A) 



-> cell (A) . 
- > species (A) . 
-> structure (A) . 
- > domain (A) . 

> gene (A) . 
-> geneorprotein (A) 
-> aminoacid (A) . 
-> smallmolecule (A) 
- > matter (A) . 
-> proteinsite (A) . 
- > disease (A) . 
-> complex (A) . 



% this will be modified later 



protein (A) --> 

proteinterm (P) , 

{ frame (A, protein, P , [] ) } . 

complex (A) - - > 

complexterm (P) , 

{frame (A, complex, P, [I ) } . 

cell (A) --> 

cellterm(P) , 

{frame (A, cell, P, [] ) } . 



species (A) > 

speciesterm (P) , 

{ frame (A, species , P , [] ) } . 

■ 

structure (A) --> 

structureterm (P) , 

{frame (A, structured, [] ) } . 

domain (A) --> 

domainterm { P) , 

{frame (A; domain, P, [] ) } . 



gene (A) 

genet erm (P) , 

{frame (A, gene, P, [] ) } . 

geneorprotein (A) --> 
gpterm(P) , 
[X] , 

{ (X ss gene, frame (A, gene, P, [] ) ; 

X - protein, frame (A, protein, p, []); 

X\= gene, X \= protein, frame (A, geneorprotein, P, []))}. 



aminoacid(A) --> 

aminoacidterm (P) , 

{frame (A, aminoacid, P, [] ) } . 

smallmolecule (A) - - > 

smallmoleculeterm (P) , 

{frame (A, 1 small molecule' , P, [] ) } . 



matter (A) --> 
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matterterm(P) , 

{ frame (A, substance , p, [] ) } • 

proteinsite (A) - - > 

proteinsiteterm (P) , 

{frame (A, 'protein site 1 , P, U ) } * 

disease (A) --> 

diseaseterm (P> , 
{frame (A, disease, P, [] ) } . 
process {A) --> 

processterm (Syn, F, Features) , 
{frame (A, process, F, [J ) , ! } * 
process (A) --> 

processterm (P) , 

{frame (A, process, P, []),!}• 



% terminals 
proteinterm(F) 
complexterm(F) 
cellterm(F) 
speciesterm ( F) 
structure term (F) 
domainterm(F) 
geneterm (F) 
gpterm(F) 
aminoacidterm (F) 
smallmoleculeterm (F) 
matterterm (F) 
proteinsiteterm (F) 
diseaseterm (F) 
processterm ( F) 



> acclex 

> acclex 
>. acclex 

> acclex 

> acclex 

> acclex 

> acclex 

> acclex 

> acclex 

> acclex 

> acclex 

> acclex 

> acclex 

> acclex 



(protein, F) . 
(complex, F) , 
(cell,F) . 
(species , F) . 
(structure, F) . 
(domain, F) . 
(gene r F) , 
(gp,F) . 

(aminoacid, F) . 
(smallmolecule, F) 
(substance, F) . 
(proteinsite, F) . 
(disease, F) , 
(process, F) . 



% action (activate , Syn, F, Features) 



- - > 



act ivate term ( Syn , F , Features ) 



ac tivateterm( Syn, F, Features) 
attachterm (Syn, F, Features) 
breakbondterm (Syn, F, Features) - 
crea tebondterm ( Syn , F , Features ) - 
inact ivateterm (Syn, F, Features) - 
react term (Syn, F, Features) 
releaseterm (Syn, F, Features) 
signal term (Syn, F, Features) 
substituteterm(Syn, F, Features) - 
transcribeterm(Syn,F, Features) - 
promote term (Syn, F, Features) 
processterm ( Syn , F , Features ) 
generate term ( Syn , F , Features ) 
causeterm (Syn, F, Features) 



-> 

- > 

- > 

- > 

- > 

- > 

- > 

- > 

- > 

- > 

- > 

- > 

- > 
-> 



acclexss (activate, Syn, F, Features) . 
acclexss (attach, Syn, F, Features) . 
acclexss (breakbond, Syn, F, Features) . 
acclexss (createbond, Syn, F, Features) 
acclexss (inactivate, Syn, F, Features) 
acclexss (react Syn, F, Features) . 
acclexss (release, Syn, F, Features) . 
acclexss (signal, Syn, F, Features) . 
acclexss (substitute , Syn , F , Features ) 
acclexss (transcribe, Syn, F, Features) 

acclexss (promote, Syn,fr, Features) . 
acclexss (process, Syn, F, Features), 
acclexss (generate, Syn, F, Features) . 
acclexss (cause, Syn, F, Features) . 



% semlist contains a phrase which is an action 
actionchk (Semlist) 

intersect (Semlist, [attach, cause, createbond, breakbond, activate, 

inactivate, substitute, transcribe , express , promote , signal] ) 



% Semlist contains a phrase which is a connector action 



18 



WO 00/63687 



PCT/US00/10302 



connectchk (Semlist) ' 

intersect (Semlist, [cause , activate , inactivate, substitute, 

promote , signal] ) . 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*%%%%%%%% 
% Genome sectionc: ends here * 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*%%* 
% relations are connected by conjunctions, or 
% certain 'conn' prepositions. 

% Taken from MedLEE 'grammar to handle connectives that are conjunctions 
% Ex: "severe markings, possibly from tuberculosis" 

sem_relation (F, [] ) --> % relation and modifiers 

sem_commapunc , 

sem_certainty ( [ ] , C , rel ) , 

prep term (P, conn) , 

{ frame (F, rel , P f C) } . 

%plice( E [rel,P] ,C] ,R) . 

% Ex: "markings, swelling", "markings and swelling" 

sem_relation (R, [] ) sem_conjrel (R) , 

sem_commapunc . 
% "density may represent known tumor" 

% "markings, and swelling" 
sem^conjrel (F) - - > 

sem_commapunc , 

sem_conj term (Conj ) , 

{ frame (F, rel , Conj ,[])} . 

sem_conj rest (Con j ) % restricted conj, has not sem_relation_jshowopt 

sem^commapunc, . m 
sem__conj term (Conj ) . 
% "markings, swelling" 
sem_con j rest ( 1 , 1 ) - - > 
snoop (SO, SO) , 

sem_commapunc , 
snoop (S,S) , 
{SO \= S} . 

% Treatment of Verbs from MedLEE r s Grammar 
% form of "be" 

sem_auxverb(B) sem_beterm (B) . 

% form of "do" 

sem_auxverb (B) - -> sem_doterm (B) . 
% form of "have" 

sem_auxverb(B) s em_ha ve t e r m ( B ) . 

setnjrecrel prepterm (in, _) . 

sem_recrel --> prepterm ( to, _) . 
% "is not" 

sem_auxrel (V) - - > sern_auxverb (_) , 

seinjriegterm (V) . 
sem_auxrel (V) - - > sem_auxverb (V) . 

% left modifiers of findings include negation, quantity, certainty, degree, and 
% change type modifiers 
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sem_integer (W) --> [W] ,{ integer (W) } . 
sem_integer (W) — > integerterm(W) . 
sem__timeunit (T) sem_timeunitterm (T) . 

% From MedLEE grammar - "lasting 2 days", "for 2 days", "times 2 days" 
sem_duration (F) --> 

sem_durpreps , 

sernjpremeasure, %about 

sem_timemeasure (T) , 

sem_durationmod, % opt. - "in duration" 
{frame (F, duration, [T] , [3 ) } < 
sem_duration { [] ,S,S) . 

sem_durpreps --> [times] . 
sem_dur preps - - > 

prepterm ( f or , __) . 
sem_durpreps --> [lasting, for] . 
sem_durpreps [lasting] . 
sem_ durpreps --> [lasted, for] . 
sem_durpreps --> [lasted]. 
sem_durationmod --> 

sem_aposts, %opt. - "»s" 
[duration] . 
sem^durationmod --> [in], [duration], 
sem_duratidnmod --> [] . 
sem_aposts --> [ ,,,f ], [s] ♦ 
sem_apost --> [] . 

% sem_f requency taken From MedLEE' s grammar 

% "two times", "times two", "two times a/per week", "two times daily" 
sem_f requency (F) 

sem_f reqterm (Fl) , % "once" 

sem_f reqterm(F2) , % "a day" 

{ frame (M,unitval, [Fl, F2] , [] ) , 
frame (F, frequency, [M] ,[])}. 

sem_f requency (F) - - > 

sem_f reqterm (M) , % "qid", "daily" 
{ frame (F, frequency, M, [] ) } . 

% "2 times", 
sem^f requency (F) 

sernjpremeasure, 

sem_quantityterm(M) , 

sem times, 
{ frame (F, frequency, [M] , [] ) } . 

% "times 2" 
sem frequency (Q) --> 
sem_times, 

sem__quantityterm(Ql) , 
{ frame (Q, frequency, Ql, [] ) } . 
sem_f requency (F) > 

[q] , sem_quantityterm (Q) , 

senijsimeunit (T) , 
{ frame (F, frequency, [unitval, [Q,T] ],[])} . 
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sein_f requency (F) --> sem_eachevery, 

sem_quantityterm(Q) ( 

sem_timeunit (T) , 

{frame <F, frequency, [unitval, [Q,T,every]} ,[])}• 
sem_f requency (Q) % "second" 

sem_ordinal (O) , 
sem_timeopt , 

{ frame (Q, frequency, O, [] ) } . 
sem_f requency ( [ ] , S , S ) . 
sem_timeopt --> [time] . 
sem_timeopt --> [] . 
sem_eachevery [each] . 

sem_eachevery - - > [every] . 
sem_times--> [times] . 
sem times --> [x] . 



% Taken from MedLEE ' s grammar 

negation modifier - "no" as in "no cardiomegaly" 
sem_negation (F) - - > 

semjnegterm (N) , 
{ frame (F,neg,N, (] ) } . 
% negation not present 
sem_negation ( [] ,S0,S0) . 

% Taken from MedLEE 1 s grammar 

% quantity modifier - "two" as in "two masses" 
sem_quantity (F) - - > 
snoop (SO, SO) , 

{ \+ checkst(sem_dates,l,s,_,SO,_) }, % not a legitimate date 
sem_quantityterm (Q) , 

sem_quantityrmod(_) , % "2 or 3", "2 to 3" 

{\+ next_wordunit (SO) , % rule out '2 mm' 
frame (F, quantity, Q, [] ) 

}• 

sem_quantity ( [] , SO, SO) . 



sem_commapunc ( [ • , • | S 
sem_commapunc ( S , S ) . 
sem_conj term (C) 
sem_doterm(D) 
sem__endmark ( [ . | S] , S) 
setnjandmark ( t ; j S] , S ) 
sem__f reqterm(F) 
sem_haveterm (H) 
integerterm(I) 
seinjneasureterm (M) 
semjrctedterm (M) 
semjnegterm (N) 
prepterm (P, C) 
sem timeunitterm (T) 



,S) . 

-> acclex (conj , C) . 
-> acclex (vdo, D) . 



-> acclex (freq, F) . 

-> acclex (vhave , H) . 

-> acclex (integer, I) . 

-> acclex (unit ,M) . 

-> acclex (med,M) . 

-> acclex(neg,N) . 

-> acclex (p, [P, C] ) . 

-> acclex (timeunit , T) . 
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% lexog - adapted from MedLEE lexicon 

%%%%%%%%%%%%%%%%%%% CLOSED WORD CATEGORY LEXICON %%%%.%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%%%%%%%%%%%%%% NEGATIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

: -unknown (_, fail) . 
: -multifile (wdef /3) . 
wdef (cannot , neg, no) . 
wdef (neither, neg, no) . 
wdef (never , neg, no) . 
wdef (no, neg, no) . 
wdef (non, neg, no) . 
wdef (none , neg, no) . 
wdef (not , neg, no) . 
wdef (nothing, neg, no) . 

%%%%%%%%%%%%%%%%%%%%% CONJUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

wdef ( ' & 1 , conj , and) . 

wdef ( 1 / 1 , conj , or) . 

wdef ( 1 - ' , grammar ,'-'). 

wdef ( ? + ■ , conj , and) . 

wdef (although, conj , and) . 

wdef (and, conj , and) . 

wdef (as , conj , and) . 

wdef (because, conj ,and) . 

wdef (but, conj , and) . 

wdef ( • , ■ , conj ,»,'). 

wdef (except , conj , no) . 

%wdef (if , grammar, if ) , 

wdef (minus , conj ,no) . 

wdef (nor, conj , no) 

wdef (or , conj , or) . 

wdef (that , grammar, that) . 

wdef (though, conj , and) . 

wdef (thru, conj , and) , 

wdef (verses , conj , or) . 

wdef (versus, conj , or) , 

wdef (vs , conj , or) . 

wdef (when , grammar , when) . 

wdef (where, grammar, where) ♦ 

wdef (whereas, conj , and) . 

wdef (which, grammar , which) . 

wdef (while , conj , and) . 

wdef (who , grammar , who ) , 

wdef (yet , con j , and) . 

%%%%%%%%%%%%%%%%%%%%% PREPOSITIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

wdef (above, pi oc, above) . 

wdef (about ,p, [approximately , nconn] ) . 

wdef (about, ploc, about) . 

wdef (across, ploc, across) . 

wdef (abutting, ploc, near) . 

wdef (accompanies, p, [with, conn] ) . 

wdef (accompanying, p, [with, conn] ) . 

wdef (adjacent, ploc, adjacent) . 

wdef (adjacent , region, adjacent) . 

wdef (after, p, [after, conn] ) . 

wdef (after, tprep, after) . 

wdef (along, p, [on, nconn] ) . 

wdef (approximately, p, [approximately, nconn] ) . 
wdef (around, p, [approximately, nconn] ) . 
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wdef (at,p, [at, nconn]) . . 
wdef (atop, p, [on, nconn]) . 
wdef (before, ploc, before) . 
wdef (before, tprep, before) . 
wdef (behind, ploc, behind) . 
wdef (below, ploc, below) . 

wdef (between, ploc , between) . 
wdef (beyond, ploc, beyond) . 
wdef (by,ploc, near) . 

wdef (despite, p, [with, conn]) . 

wdef (during, p, [during, conn} ) . 

wdef (during, tprep, during) . 

wdef (encasing, ploc, encasing) . 

wdef (extending, p, [in, nconn]) . 

wdef (following, p, [after, conn] ) . 

wdef {following, tprep, after) . 

wdef (for, p, [for, nconn]) . 

wdef (from, p, [from, conn] ) . 

wdef (in, p, [in, nconn] ) . 

wdef ( including, p, [with, conn] ) . 

wdef (into, p, [in, nconn]) . 

wdef (involving, p, [of , nconn] ) . 

wdef (next , tprep, next ) . 

wdef (occupying, p, [in, nconn]) . 

wdef (on,p, [on, nconn] ) . 

wdef (of ,p, [of , nconn] ) . 

wdef (over , ploc, oyer) . 

wdef (overlie, ploc, over) . 

wdef (overlied, ploc, over ) . 

wdef (overlies , ploc, over) . 

wdef (overlying, ploc, over) . 

wdef (prior , tprep, before) . 

wdef (near , ploc, near) . 

wdef (radiating, ploc, radiating) , 

wdef (regarding, p, [about , nconn] ) . 

wdef (roughly, grammar , roughly) . 

wdef (since ,p, [since, conn] I) . 

wdef (since , status , subsequent) . 

wdef (through, p, [in, nconn] ) , 

wdef (throughout, p, [in, nconn]) . 

wdef (to, p, [to, nconn] ) . 

wdef (toward, p, [to, nconn]) . 

wdef (towards, p, [during, conn] ) . 

wdef (under, ploc, below) . 

wdef (underneath, ploc , below) . 

wdef (until , tprep, until) . 

wdef (up , grammar , up) . 

wdef (upon, p, [on,nconn]) . 

wdef (via, p, [with, conn]) . 

wdef (with, p, [with, conn]) . 

wdef (within, p, [in,conn]). 

wdef (without , p, [no, conn]) . 

% wdef (without ,neg, no) . 

%%%%%%%%%%%%%%%%%%%%%%%%%% UNITS OF 
wdef ( ' %' , unit, percent) . 



% ■ roughly 6 mm • 



MEASURE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
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wdef (cc, unit , cc) . 

wdef (centimeter , unit , cm) . 

wdef (centimeters , unit , cm) . 

wdef (cm, unit , cm) . 

wdef (degrees, unit, degree) . 

wdef (gm, unit, gram) . 

wdef (gms, unit, gram) . 

wdef (gram, unit, gram) . 

wdef (grams , unit , gram) . 

wdef (kg, unit , kilogram) . 

wdef (kilo, unit , kilogram) . 

wdef (kilogram, unit, kilogram) . 

wdef (kilograms, unit , kilograms) . 

wdef (liter, unit, liter) . 

wdef (liters, unit, liter) . 

wdef (microgram, unit , microgram) . 

wdef (micrograms , unit , microgram) . 

wdef (milliliter , unit , ml) . 

wdef (milliliters , unit , ml) . 

wdef (milligram, unit, mg) . 

wdef (milligrams, unit, mg) . 

wdef (milliseconds, unit, millisecond) . 

wdef (millivolts, unit, millivolt) * 

wdef (ml , unit , ml ) . 

wdef (millimeter , unit , mm) . 

wdef (millimeters , unit , mm) . 

wdef (mm, unit , mm) . 

wdef (ozs, unit , ounce) . 

wdef (percent , unit, percent) . 

%%%%%%%%%%%%%%%%%%%%%%%%% NUMBERS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*%%%%* 

wdef (half, integer, "one half ■ ) . 

wdef (semi, quantity, semi) . 

wdef (ii, integer , 2) . 

wdef (iii, integer, 3) . 

wdef (vi , integer , 4) . 

wdef (v, integer, 5) . 

wdef (vi , integer , 6 ) . 

wdef (vii, integer, 7) . 

wdef (viii, integer, 8) . 

wdef ( ix, integer , 9) . 

wdef (xii, integer, 12) . 

wdef (xiii, integer, 13) . 

wdef (one, integer, 1) . 

wdef (two, integer, 2) . 

wdef (double, quantity, double) . 

wdef (three, integer , 3) . 

wdef (four, integer, 4) . 

wdef (quadruple, quantity, quadruple) - 

wdef (five, integer, 5) . 

wdef (six, integer , 6) . 

wdef (sixty, integer, 60) . 

wdef (seven, integer, 7) . 

wdef (eight, integer, 8) . 

wdef (nine, integer, 9) , 

wdef (ten, integer, 10) . 

wdef (eleven, integer, 11) . 

wdef (twelve, integer , 12) . 
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wdef (thirteen, integer, 13) . 
wdef ( fourteen , integer , 14 ) . 
wdef (fifteen, integer, 15) . 
wdef (sixteen, integer, 16) . 
wdef (seventeen, integer, 17) . 
wdef (eighteen, integer , 18) . 
wdef (nineteen, integer, 19) . 
wdef (twenty, integer, 20) . 
wdef (thirty, integer, 30) . 
wdef (forty, integer , 40) . 
wdef (fifty, integer, 50) . 
wdef (sixty, integer, 60) . 
wdef (seventy, integer, 70) . 
wdef (eighty, integer, 80) . 
wdef (ninety, integer, 90) . 
wdef (hundred, integer, 100) . 
wdef (thousand, integer, 1000) . 
wdef (million, integer, 1000000) . 
wdef (billion, integer, billion) • 
wdef (zero, integer , 0) . 
wdef (first, ©integer, 1) . 
wdef (second, ointeger, 2) . 
wdef (third, ointeger, 3) . 
wdef (fourth, ointeger , 4 ) . 
wdef (fifth, ointeger, 5) . 
wdef (sixth, ointeger , 6) . 
wdef (seventh, ointeger, 7) . 
wdef (eighth, ointeger , 8) . 
wdef (ninth, ointeger, 9) . 
wdef (tenth, ointeger , 10) . 
wdef (eleventh, ointeger, ll) . 
wdef (twelvth, ointeger , 12) . 
wdef (thirteenth, ointeger, 13) * 
wdef (fourteenth, ointeger , 14) . 
wdef (fifteenth, ointeger, 15) . 
wdef (sixteenth, ointeger, 16) . 
wdef (seventeenth, ointeger, 17) . 
wdef (eighteenth, ointeger, 18) . 
wdef (ninteenth, ointeger, 19) . 
wdef (triple, quantity, triple) . 
wdef (twentieth, ointeger, 20) . 
wdef (thirtieth, ointeger, 30) , 
wdef (single, quantity, 1) . 
wdef (solitary, quantity, 1) . 

wdef (frequency, grammar, frequency) . */ 
wdef & . » , grammar, 1 . » ) , 
. wdef ( • ; ' , grammar, 1 ; ■ ) . 
wdef ('/'./ grammar ,'/')• 
wdef ( • : ' , grammar , 1 : ' ) . 

wdef ( 1 ? 1 , certainty, 'moderate certainty' ) . 
wdef ( • + 1 , certainty, 1 high certainty ' ) . 
wdef ( ■ 1 1 1 , grammar, ' • ' 1 ) . 

%%%%%%%%%%%%%%%%%%%%%%%%% FREQUENCIES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%**%*** 
wdef (once, f req, 1) . 
wdef (times , grammar, x) . 
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% lexicon with lexOg containing common English words adapted from lexO of 
MedLEE% 

% lexlg from lexl of MedL.EE 
% August 23 , 1999 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



% . * CAROL FRIEDMAN . % 

% QUEENS COLLEGE, COLUMBIA UNIVERSITY % 
% 

% ■ Version 3.0 4-01-00 % 

% Version 2.0 1-31-96 % 

% Version 1.0 1-5-92 % 

% % 

% % 

% SEMANTIC LEXICON FOR CLINICAL TEXT % 

% % 

% The lexicon consists of several files: % 

3r lex0g.pl: single word closed classes % 

% lexlg.pl: single word - general modifier type words: % 

% 

wdef {category, target) . % 

% word - is the name of the word being categorized; % 

% category - is the semantic category for the word % 

% target - is the canonical/ standard form for the word % 

% words which are synonyms should be assigned the same % 

% canonical form. % 

% mult i -word phrases are categorized as follows: % 

% phrase (word, category, phrase, target) . * 

% % 

% Semantic Categories: % 

% % 

% certainty "possible" % 

% canonical values limited to: moderate - for possible % 

% high - for high possible % 

% low - for low possible % 

% conj - relational operators "and", "or" , which connect one finding % 

% to another^ finding % 

% neg - negation "no", "not" 

% quant - for quantitative information "many" % 



: -unknown fail) . r 

: -ensure_loaded( [nsphrase, lexOg, lexlg, lexsemact , lexsyn, lexsub] ) . 
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% definitions kept from MedLEE lexicon - lexl.pl 

wdef (be,vbe, 'high certainty') . 

wdef (been, vbe, 'high certainty') . . 

wdef (being, vbe, 'high certainty') - 

wdef (was, vbe, 'high certainty') . 

wdef (is, vbe, 'high certainty') . 

wdef (were, vbe, 'high certainty') . 

/* 

wdef (became, vcertainty, 'high certainty') . 
wdef (become , vcertainty, 'high certainty') . 
wdef (becomes , vcertainty, 'high certainty') . 
wdef (becoming, vcertainty, 'high certainty' ) . 

put in action lexicon 
wdef ( changed , change , change ) . 
wdef ( changes , change , change ) . 
wdef (changing, change, change) . 

wdef (necessarily, certainty, 'high certainty' ) . 

wdef (necessary, vrecommend, recommended) . 

wdef (necessitate, vstatus, need) . 

wdef (necessitated, vstatus, need) . 

wdef (necessitating, vstatus, need) . 

wdef (necessitates, vstatus, need) . 

wdef (need, vstatus , need) . 

wdef (needed, vstatus, need) . 

wdef (needing , vstatus , need) . 

wdef (needs, vstatus, need) . 

*/ 
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% file ml_parser.pl 

multifile (phrase/5) . 
: - multifile (wdef /3) . 
: -unknown ( — , fail) . 

% Load in program components - library components are part of Prolog 
ensure_loaded( [library (basics ) , library (not) , library (lists) , 
library (readin) , library (strings) , library (ctypes) , library (readconst) , 
library (date) , library (listparts) , library (sets) , 
radrec, radpardb, useful, util, tagging, lexicon, gengram] ) . 

%:- initialization run. 

%run :- on_exception (Error, processrun, stop (Error) ) . 
runt ime_entry (start) :- processrun. 
runt ime_en try (abort) :- halt. 

% process report 
processrun ; - process, halt. 

%stop (Error) 
% told, 

% write (user_error, 1 Error : ' ) , write (user_error, Error) , halt. 

% get user supplied parameters and process report 
process : - 

get_args (Mode, Inf ile, outf ile, Prb, Undef s, Protocol) , !, 

(Examtype = [J ; % must have a domain 
process (Inf ile, Out file, Prb, Undef s) ) . 

% open Inf ile (text input) and process 
process (Inf ile, Outf ile, Prb, Undef s) : - 

see(Infile), seen, see(Infile), 

on_exception (Error , 

test_genome (Outf ile, Prb, Undef s) , 

app_errO (_, Outf ile, Error) ) , 
closefiles (Outf ile, Prb, Undef s) . 
process Outf ile, _,_) 

app_err(_, Out file, 'Program failed 1 ). 

a PP_e r r 0 ( _ , Output , Error ) : - 
tell (Output) , 
write (' < error > 1 ) , 

write ( 1 Prolog Error occurred: '), 

app_err Output , Error) . 
app_errl O Output , Error) : - 

tell (Output) , 

write ( ■ <error> • ) , 

write { 1 Error in input : 1 ) , 

app_err(_, Output, Error) . 
app_err (_, Output , Error) : - 

tell (Output) , 

write (Error) , write ( 1 </error> • ) , nl . 

closefiles (Outf ile, Errf ile, Unfile) : - 
tell (Outf ile) , told, 
(Errfile = [] ; tell (Errf ile) , told), 
(Unfile = [] ; tell (Unfile) , told). 
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% Argument options - get user defined arguments 

% -p ProbFile (otherwise default is problem messages are not written to file) 
% -i Infile (if input is supplied by file and not standard input 
% -s Section (default is impression) 

% -m Mode (default is relax; the three choices are strict, relax, skip) 
% -o Out file (if output should be file and not standard output) 
% -? Provide list of default arguments 

% -u Undefs (otherwise default is - undefined messages are not written 
% to a file) 

get_args (Mode, Infile, Outf ile, Prbf ile, Undefs, Protocol) : - 
unix (args (Args) ) , 
(Args = [] , \, writesyntax; 
Args » ['?']/ I, writesyntax; 
Args = [X | Rest] , ! , 

set_args ( [x| Rest] ,Mode, infile, Outf ile\ Prbf ile, undefs, Protocol) ) . 

writesyntax 

write (user_error, 'geneparser [-m Mode] '), 
nl (user_error) , 

write (user_error, 1 [-t Outtype] [-p Probfile] [-u Undefs] »), 

nl (user__error) , 

write (user_error, 1 [-i Infile] [-o Outf ile] ') , 

nl (user error) . 
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% nsphrase.pl - contains words/phrases that are ignored 

nosem(both, [both] ) . 

no s em (however, [however] } . 

nosem (selectively, [selectively] ) . 

nosem (specif ically, [specifically]) . 

nosem (the, [the] ) , 

nosem (a, [a] ) . 
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% file radpardb.pl 

% .June 25, 1999 

% fail an unknown predicate 

: -unknown (_/ fail) . 
:- op (900, fy> [not # once] ) . % same priority and type as \ + 
:- op(700, xfx, [\= , ~=3 ) . % same priority and type as « or == 

dynamic ( sen tno/1 ) . 
% \sem\radpardb.pl 

%parse sentences (+Beg, -Fmt, -ParseErrors, -Undefineds, -Unsents , +Sect ion, 



% +UserMode , + Examtype , Sentno , Outsno , IncSno ) 

% Beg is list of sentences, Fmt is list of target forms , 

% ParseErrors are a list of sentences which could not parse, 

% Undefineds is a list of undefined words in sentence 

% Unsents is a list of sentence containing undefined words 

% Section is the section of the examination, UserMode is the 

% parsing mode specified by user, 

% Examtype is the domain (type of exam) 

% Sentno is the number of the starting sentence 

% Outsno is the last sentence number + l 

% IncSno is the amount that the sentence number should be increased 

% (i.e. it is 1 when called by parse_sects and 0 when in 

% recovery mode) 

% Each sentence is parsed independently. 



parse_sentences ( f] , f3 / TJ /[], [j /_/_,_,_,_,_) 1. %no more sentences 

parse_sentences (Beg, Fmt list, Out fail, Outundef s, OutunSents , 

Section, UserMode, Examtype IncSno) : - 
get_sentence (Beg, s, Rest) , !, 

( isidentifier (S) , !, % ignore identifier sentences - parse remainder 
parse_sentences (Rest , Fmtl , Outf ail , Outundef s , OutunSents , 

Section, UserMode, Examtype, IncSno) , ! , 
(outputform(htext) , S \= ['.»], f, IncSno \« 0, %0 means in recovery 

mode 

append ( [ [ [sentence, S] ] ] , Fmtl, Fmtl is t) ; 
Fmtlist = Fmtl 

) 

%( IncSno = 0, I; % on same sentence in recovery mode 

% sentno (Sno), NewSentno is Sno + IncSno, 

% retract (sentno (_) ) , assert (sentno (NewSentno) ) 

%%) , 

% Incsno =» 1, write ('***«) , write_Ust (S, 3,_) , nl, !, 
% Incsno =0, 

preprocess (S,Bs,Undef ,Semlist, strict) , % bracket and check for undefineds 

parse_modes (S, Bs, Semi is t, Fmtl, Errors, Undef , Unsents , Section, Writef ail , 

Examtype, UserMode, IncSno) , % parse first sentence 

parse_sentences (Rest , Fmt2 , Moreerrors , Moreundef s , MoreUnSents , 

Section, UserMode, Examtype, IncSno) , % parse remaining 
append (Errors, Moreerrors, Outf ail) , % Combine failures 

(outputform(htext) , 

(Fmtl \= [] , IncSno \= 0, 
!, append ( [Fmtl] , Fmt2, Fmtlist) ; % add extra bracket for 1st 
Fmt 2 =' [] , Fmtlist « Fmtl , ! 
) 
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append (Fmtl, Fmt2 , Fmt list) 
) , % Combine targets 

append (Unsents , MoreUnSents , OutunSents) , % Combine sentences 
append (Undef , Moreundefs , Outundefs ) % Combine undefined words 

) . 

%parse_modes (+S, +Bs, +Semlist, -Fmt, -Failures , +Undef , -Unsents , ^Section, 



% +WriteMessage, + Examtype, +Mode, +IncSno) 

% S is original sentence; Bs is sentence after lexical lookup 

% Semlist is list of semantic categories in sentence 

% Fmt is formatted output, 

% Failures is list of sentences /fragments which could not be parsed. 

%' Undef are words not in lexicon, Unsents are sentences containing 
% undefined words 

% Section is name of section being processed 

% WriteMessage is message returned from doresult (in case doresult fails) 

% Examtype is domain, Mode is user specified mode 

% IncSno is 0 if this is a fragment of a sentence that was already 
% parsed - but unsuccessfully; is 1 if this is a new sentence 



% Best possible - try to get the most accurate parse possible trying 
% all alternative strategies in turn if neccessary 
% All words in sentence are defined 

parse_modes (S,Bs, Semlist, Fmt , Errors, U , U , Section, no, Examtype, Pmode , 

Inc) 

(Pmode ■ bpseg, Pmodemod = mode2 , 1; %i,n recovery mode 
Pmode = bpseg2, Pmodemod « mode2, !; 
Pmode = bpseg3 , Pmodemod = mode2 , ! ; 

Pmode « bpskip, Pmodemod = mode4, !; %in recovery mode 

% in user specified parse mode - don't parse in mode 5 or keyword 
Pmode \= keyword, Pmode \=» mode5, 
Pmodemod = model 
) , 

dosent(S,Bs, Semlist, Fmtl, Message, Section, Examtype, Pmodemod, _) , !, % 
strict first 

recovery (_,S,Bs, Semlist, Fmt 2 , Message, Errors, [J , [J, Sect ion, 

Pmode, Examtype, _J , % try alternative modes if neccy 
(outputform(htext) , Inc \= 0, !, append( [[ [sentence, S] 3 , Fmtl, Fmt2 3 , Fmt) ; 
append ( Fmtl , Fmt2 , Fmt ) 

) . 

% alternative strategies if have undefined words 

parse_modes (S,Bs, Semlist, Fmt , Errors, Undef , Unsents, Section, no, Examtype, 

Pmode, Inc) 
Undef \= C3 , 

recovery (_, S , Bs , Semlist , Fmtl , yes , Errors , Undef , Unsents , Section , 

Pmode, Examtype ,_) , % try alternatives if have undef ineds 
(outputform(htext) , lnc\= 0, ! , append( [ [sentence, S3 3 , Fmtl, Fmt) ; 
Fmt = Fmtl 
) . 

% key word strategy is fastest but least reliable; 

parse_modes (S , Bs , Semlist , Fmt , Errors , Undef , Unsents , Section, no , Examtype , 

Pmode , Inc ) : - 
(Pmode = keyword; Pmode = modes 
; Pmode ■ modes) , 

recovery { 5 , S , S, Semlist , Fmtl, yes , Errors, Undef , Unsents , Section, Pmode , 
Examtype, _J , 

( output f orm (htext ) , Inc \= 0, !, append {[ [sentence, S3 3 , Fmt i, Fmt) ; 
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Fmtl m Fmt 
) . 

% Parsing/Recovery modes 

% parsejrcodes (+Level, +S, +Bs , +Sem, -Fmt, +Failed, +Undef , +Unsents, ^Section, 



% + Pmode , +Examtype , _) 

% Level is the recovery level of the predicate 

% S is the original sentence list 

% Bs is the 

% Sem is the list of semantic categories in the sentence 

% Fmt is the formatted output for the sentence 

% Failed is 'yes* if the parse was unsuccessful, and 'no' otherwise 

% Undef is a list of words in sentence which are undefined (not in lexicon) 

% Unsents are the lists of sentences/segments which could not be parsed. 

% Section is the section of the report 



% Pmode is the user specified parse mode 
% Examtype is the domain 

% mode 1 is the strictest parsing mode - the parser succeeded for the complete 
% original sentence using the grammar; all words in original sentence 

% are defined in lexicon 

% mode 1 - alternative not needed because parse succeeded 

recovery (1, U ,no, {] , Undef , Unsents _) : - I - 

% - no alternative strategy allowed in mode 1 

% in case where there are no undef ineds, Noparse is S 

reccvery (1,S,_,__, [J ,yes,S, [J , [J Pmode, _,_) : - 

Pmode a strict; Pmode » model, ! . 
% in case there are undef ineds, Unsents is S 

recovery (l,s,_,_, [] , yes, Noparse, Undef , Unsents , Pmode, _ :- 

(Pmode = strict; Pmode - 'model'), 

Undef \= [] , Unsents « S, Noparse = [J , ! . 
recovery (1, S,_, Semi ist , [] , yes, S, - - 

% sentence contains no relev. information, don't try to recover 
% \+ (subtype (finding, Semlist) ; subtype (time, Semlist) ) , I. 

\+ actionchk (Semlist) . % april 23, restored 

% mode 4 - skip undefined words and try to parse according to mode 1 
recovery ( 4 , S , Fmt , yes , Errors , Undef , [ ] , Sect , Pmode , Examtype , _J : - 
Undef \~ [] , 

(Pmode = bp; Pmode « mode4; 

Pmode = bpseg; Pmode ■ bpskip; Pmode - mode4 
), 

preprocess (S,Bs,_, Semlist , bpskip) , 

dosent (S, Bs, Semlist , Fmt 1, Message, Sect , Examtype ( mode 4 
recovery (_,Bs,Bs, Semlist, Fmt2, Message, Errors, [] , [3 , Sect, 

bpskip, Examtype, Sentno) , % try alternatives if neccy 
append ( Fmtl , Fmt 2 , Fmt ) . 

% mode 3 - try longest parsed segment; partition rest of 
% sentence using mode 5 for parse mode bp 

recovery ( 3 , S , Bs , Fmt , yes , Errors , Undef , Unsents , Sect , Pmode , Examtype , _) : - 
% allowable modes for choosing longest segment 
(Pmode m bp; Pmode = bpskip; 

Pmode - skip; Pmode = mode 3; Pmode ■ mode4 ; 
Pmode m bpseg3; Pmode = bpseg 
) , 

(Pmode = bpskip, Pmodemod = mode4_3 ; 
• Pmodemod = mode 3 
) , 

checks t (semjpat tern, s, Target , Bs, Rest) , %check symbol table 
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%dooresult (Target, Fratl , Examtype , Sect , Pmodemod, _) , 
formatresult (Target , Pmodemod, Fmtl) , 
(Pmode = mode3, Fmtlist ■ [3, Errors = Rest; 

recovery ( 5 , Rest , Res t , Fmtlist , yes , Errors , Undef , Unsent s , Sect , 

Pmode , Examtype , _) 

> , 

append (Fmtl, Fmtlist, Fmt) . 
% mode 2 segments sentence using word barrier methods- This mode is tried if 
% parse failed for original sentence/or there are undefined words 

% segment sentence using word barriers 

recovery ( 2 , S , _, Fmt , yes , Errors , Undef , Unsents , Sect , Pmode , Examtype , _) : - 
{Pmode = bp; Pmode « bpskip; Pmode = mode2; Pmode = skip; 
Pmode = mode 2 ; Pmode * mode 3 ; Pmode - mode 4 ; 
Pmode = bpseg; Pmode = bpseg2; 
Pmode = bpseg3 

segmentandparse ( S , Fmt , Errors , Unsents , Sect , Pmode , Examtype ,_),!. 
% mode 5 - try to partition sentences by findings 
% when a finding in sentence is found, go left until first 
% modifier is found (if 2 findings are next to each other, 2nd one 
% is considered the finding and 1st is considered the modifier) 
% Repeat searching for successive findings using this method 
recovery (5, □,[],_,[],_,[] : " ! - 

recovery { 5 , S , Bs , _ , Fmt , yes , Errors , Undef , Unsents , Sect , 

Pmode , Examtype , _) : - 

(Pmode m bp; Pmode = bpskip; Pmode * bpseg; Pmode « keymode; 
Pmode = mode5 ; Pmode » negmode 

) , 

preprocess (S,Bsl,_,_, bpskip) , % skip undefined words 

actionf indingseg (Bsl , Fseg, Before) , I, % get segment containing finding 
(Fseg » [] , Errors = S, ! ; % no finding to segment 
%Before = [] , Errors » Bs, Fmtl =[],»; % this part was tried 
preprocess (Fseg, Bseg,_, Semi is t, bpskip) , 
dosent ( Fseg , Bseg , Semlist , Fmt 1 , Message , Sec t , Examtype , 
modes, _) % try to parse finding segment 

), 

(Before ■ [] , Beforel = [] , Message = yes, I; * no segmenting yet - 

skip beg. 

Message = yes, Beforel = Before, !; %don»t add '.'; have to skip 

more 

append (Before, [' . r ] , Beforel) 
>, 

( Fseg m' [] , Fmt • [],!; % no finding left in sent. - don't recover 
recoverrest {Fseg, Bef orel, Fmt2, Message, Errors, 
Sect , Newmode , Examtype , _) , 

% recover remainder 

append { Fmtl , Fmt 2 , Fmt ) 
) . 

nothing could be recovered; all input -> Errors Format is [] 
recovery (_, Sent s,_,_, [] , yes , Sent s , Undef , [] r « 

% part of phrase was skipped, add period and treated skipped part as a 
% sentence 

% recoverrest (+Segment,+Semlist,+Bef ore, -Fmt , +Mes sage, -Failures, +Section, 
% +Mode , +Examtype , _) 

Segment is part of sentence with a finding 
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% Semlist is a list of semantic categories for that sentence part 

% Before is the part of sentence before Segment 

% Fmt is the format for this segment 

% Message is 'no* if there is no segmantic information to be recovered 
% Message is 'yes* otherwise 

% Failures are lists of segment (s) that could not be parsed successfully 

% Section is section being processed, Mode is user specified parsing mode 

% Examtype is domain 



recoverrest (_,_, Before, [] , no, Bef orel _J 

(Before = [J , Bef orel = [J , J ; % nothing was skipped 
append (Before ,['.'] ,Beforel) 
), !- 

% nothing left to recover; write phrase that was skipped 
recoverrest ( [] Before, [] , yes, Bef orel, : - 

(Before = [] , Beforel =[],!; 

append (Before ,['.'], Beforel ) \ 

) , I . 

% can recover partial parse 

recoverrest (Bs, Before, Fmt , yes, Errors, Sect, Pmode, Examtype ,_) : - 

checkst (sem_pattern,_, s, Target , Bs, Restseg) , % recover from symbol tab. 
%doresult (Target, Fmt 1 , Examtype , Sect , modes , _) , 

format re suit (Target , mode 5 , Fmtl) , 
recovery ( 5 , Res tseg, Rest , _ , Fmt2 , yes , Error2 , 

[] , [] , Sect, Pmode, Examtype, _) , 
append (Fmtl, Fmt 2 , Fmt) , 

(Before = [] , Errors = Error2, ! ,- ^nothing skipped to add '.'to 
append (Before, [' . • |Error2] , Errors) 
) . 

% cannot recover partial parse - skip first element and retry 
% if 1st element is a negation semantic type, skip 2nd element instead 
% Handles case where 1st element is. a negation, certainty or status 
% add 2nd element to unparsed sentences list (enlcosed in angle brackets) . 

recoverrest ( [X, Y | Res tseg] Beforel, Fmt , yes , Errors, 

Sect, Pmode, Examtype, _) 
f oundword (X , Semi , Tar) , 

( member(Seml, [neg, certainty, vcertainty, vconn, status, vstatus] ) ; 
Semi = p, Tar = [_, conn] 

) , 

- " % (Mod m neg; Mod = certainty; Mod = status; Mod ■ vcertainty), % leave 
this mod in 

preprocess ( [X [Restseg] , FsegO bpskip) , % skip undefined words 
findingseg (FsegO, Fseg, Bef ore2) , !, % get finding seg 
(Fseg » [] , Errors « [X, Y|Restseg] , Fmt ■ [] ; % no finding 
preprocess (Fseg, Bseg,__, Restsem, bpskip) , % skip undefined words 
dosent (Fseg, Bseg, Restsem, Fmtl , Message, Sect, _, Examtype, 

modes, _) , % try to parse finding segment 
recoverrest (Fseg, [Y|Before2] , Fmt2 , Message, Error2 , 

Sect, negmode, Examtype, _) , % recover remainder 
(Beforel « [] , Errors = Error2, !; 
append (Beforel, [. )Error2] , Errors) 
) , 

append ( Fmtl , Fmt 2 , Fmt ) 
) . 

% skip 1st element; enclose it in brackets 
recoverrest ( [X | Restseg] , _, Beforel , Fmt , yes , Errors , 

Sect, Pmode, Examtype, _) :- 
preprocess (Restseg, FsegO, bpskip) , 
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findingseg(FsegO,Fseg,Before2) , !, % get finding s eg 
append ( Be f orel, [x|Before2] , Before) , 

(Fseg = []/ Errors = [X|Restseg] , Fmt = []; % no finding 
preprocess ( Fseg , Bseg , Restsem, bpskip) , 
dosent ( Fseg , Bseg , Rest sent , Fmt 1 , Message , Sect , Examtype , 

mode5 , ), % try to parse finding segment 
recoverres t ( Fseg , Before , Fmt2 , Message , Errors , 

Sect ,Newmode, Examtype, _) , % recover remainder 
append (Fmt 1, Fmt 2 , Fmt) 
) . 

% no semantic information left; return Errors 
recoverrest ( [X|Restseg] , [] , Bef orel , Fmt , yes , [X|Restseg], 

Sect , Pmode , Examtype ,_) . 

%dosent (+S, +Bs, +Semlist, -Fmtlist, +Message, +Section, +WriteMessage, +Examtype, 



% +Mode ) 

% S is original list of words in sentence; Bs is list after lexical lookup 

% Semlist is list of semantic categories corresponding to Bs 

% Fmtlist is list of target forms for sentence 

% Message is 'yes' if the output from parser signals a failure, 

% and ' no ' otherwise 

% Section is section of examination being processed 

% WriteMessage signals whether an error occurred in generating target form 

% Examtype is the domain, and Mode is the user specified mode of parsing 

% Parse sentence and returns target in nested format 

% Handles case where sentence should be skipped because info is about 
% family member or peripheral to patient 



dosent (S,_, Semlist', [], Error, 

skipsentence (S, Semlist, Error) , ! . 
dosent (S , Bs , Semlist , Fmtlist , Errormsg , Sect ion, Writef ail , Examtype , Mode , _) : - 
attemptparse (P, Bs , sentence, Semlist , Section, Atotal) , 
( P = [failure], Errormsg => yes, Writefail - no, t % parse failure 

p'= [] , Errormsg = no, Writefail = no, Fmtlist - [] , ! % empty target 

%doresult (P, Fmtlist, Examtype, Section, Mode ,_) , 
formatresult (P, Mode, Fmtlist) , 
Errormsg * no, Writefail = no, i 

Errormsg = yes, Writefail = yes, ! 

) . 

%parse_sentences (Beg, Beg, []# [3 • 

% attemptparse (-P, +Bs, +Structure, +Semlist , -Ftype, -Total) 



% P is output from parser 

% Bs is list of words in sentence after lexical lookup 

% Structure is name of structure to be parsed 

% Semlist is list of semantic categories corresponding to elements in Bs 

% Total is number of times parser reached sem_sent in grammar; 

% where sem_sent is highest level predicate in grammar 

% don't parse if sentence consists of only 1 . • or • ;• 
attemptparse ( [] , Bs, 

Bs = [ • . ' 3 ; Bs = [»;»]. 



% if a template exists for whole sentence, get parse from it 
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attemptparse (P, Bs, sentence, : " 

Bs - [X/ 1 .']/ is_list(X), ~*% the whole sentence is a finding 
f ind__sem_sent (P, X) , > . 

% parses and retracts wellformed string table - parses sentence 
attemptparse (P, Bs, sentence, Semlist, Ftype, Atotal) : - 

retractall <wf st (_,_,_,__, _,__)), 

retractall (addstotal (_) ) , 

sem_sent (P, Semlist , Atotal , Bs, [] ) , ! . 

% parses and retracts wellformed string table - parses bodypart only 
attemptparse (P/Bs, bodypart, _,_,_) : - 

sem_bodyloc (P,Bs f [] ) , 

retractall (wf st (_/_,__*_,_,_) ) * - • 

%segmentandparse (+Sentences, -Fmtlist, -Failures, -Unsent, +Section, +Mode, 



% +Examtype, +Sentno) 

% Sentences is list of sentence segments. 

% Fmtlist consists of the formatted output for the segments 

% Failures is the list of unparsed segments. 

% Unsent is the list of segments with undefined words. 

% Section is the section being processed, Mode is the user specified mode 

% Examtype is the domain and Sentno is the sentence id. 



segmentandparse ( [3 , [] , 13 , [3 * - 

segmentandparse (Sentences , Fmtlist , Failures , UnSent , Section , Mode , 

Examtype, Sentno) :- 
get_sentence (Sentences, S, Rest) , !, %sentence to segment 
preprocess (S , Sl,__, Semlist , Mode) , ! , 
(Mode = mode2, NewPmode = bpseg2, I ; 
Mode - mode3, NewPmode = bpseg3, I ; 
NewPmode = bps eg 
) , 

( segmentl (SI, Segs, [3 ,seg) , !, 

parse_sentences {Segs, Fmtl , Fails, Unl , Section, NewPmode, Examtype , 

Sentno, Sentno, 0) , ! 
; segment2 (SI, Segs, [3 , seg) , I, 

parse_sentences (Segs , Fmtl , Fails , Unl , Sect ion, NewPmode , Examtype , 

Sentno, Sentno, 0) , ! 
; segment 3 (Si , Segs , [3 ,Negstatus, seg) , !, 

parse_sentences (Segs , Fmtl , Fails , Unl , Section, NewPmode , Examtype , 

Sentno, Sentno, 0) , 1 

% fails if cannot segment sentence; otherwise segments remainder 
segmentandparse (Rest , Fmt 2 , Nexterrors , NextUns , Section , Mode , 

Examtype, Sentno) , 
append (Fmtl, Fmt 2 , Fmtlist) , 
append (Unl , NextUns , UnSent) , 
append (Fails, Nexterrors, Failures) , ! . 

%segmentl ( +S , - Segs , +Beg , +Message ) 



* S is list of words in sentence 

% Segs consists of sentence segments as separate sentences 

% Beg is list of words in sentence prior to the current portion of sentenc 

% Message is 'seg* if segmenting succeeded and 'noseg' otherwise 



segmentl ( C3 ,[] ,_,noseg) !. 

% segment sentence at connect phrase/word or at most conjunctions 
% if negation precedes, restore negation 
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segmentl ( [X|Rest] ,[•.*, '<eos>' |Rem] , Beg, seg) 

\+ sem_endmark (Rest, [] ) , % don't segment if at end already 
foundword(X, Sem, Target ) , % get semantic classification and target 
( X * nor, append ( [no] , Rest, Rem) % ok to segment at nor 
; X = without, append { [no] , Rest, Rem) % ok to segment at without 
% ;X = • : • , Rest = Rem 

; Sem - neg, Rest = [Next | Rest2] , % have negation; test word after 
foundword(Next,Sem2,Target2) , % for connective - add back negation 
test forconn (Next, Sem2, Target2 ) , Rem = [X|Rest2] 
; testforconn (X, Sem, Target) , Rest = Rem 

) . 

segmentl ( [X | Rest 3 , [X | Newrest] , Start , Seg) : - 

append (start , [X] , Beg) , % part before segmentation 
segmentl (Rest , Newrest , Beg, Seg) . 

testforconn (X, Sem, Target) 

( Sem - p, Target = [P,conn],P\= with % segment at connective prep 
; member (Sem, [vconn, vshow] ) % segment at these types of verbs 
; Sem = conj , \+ member (X, [and, or , • , 1 , 1 / 1 , as] ) 
) . 

% segment at certain words - 
segment2 ([],[],[] ,noseg) ! . 

4 

segment 2 (S, Segs, [] , seg) 

seg2 (S, Rest , Segs) , 
\+ sem_endmark (Rest, [] ) , ! . 
segment2 ( [X | Rest] , [X | Newrest] , [] , Seg) : - 

segment2 (Rest /Newrest, [] , Seg) . 
seg2 ( [X | Rest] , Rest , [ ' . 1 , 1 <eos> 1 | Rem] ) : - 

membe r ( X , ( whi ch , t ha t , un t i 1 , where , when , whi 1 e , who , 
■ ( ' , » ) * , between, whereby, after, before, prior, 
greater, ranging] ) , 
Rem = Rest, ! . 



segment3 ([],[] ,_,_,noseg) :- !♦ 

% segment at conjunction - if negation preceded conjunction, add 
segment 3 ( [X|Rest] , Rem, Beg, Negstatus , seg) ; - 

\+ sem_endmark(Rest, []),!, % already at end of sentence 
seg3 ( [X | Rest] , Rem, Beg, Negstatus , seg) , I . 



seg3 ( [X | Rest] , Rem, Beg, Negstatus, seg) :- 
wdef (X, conj ,__) , 
member (X, [and, or, 1 , » ] ) , 

(nonvar (Negstatus) , Rem « ['.', Negstatus | Rest]', ! %restore negation 

; Rem = [ ' . 1 , ' <eos> • | Rest] , ! 
) . 

seg3 ( [X | Rest] , [£, ' . • , » <eos>' |Rest] seg) : - 
foundword (X,age) , !. 

seg3( [X | Rest] , [X| Newrest] , Start , Negstatus , Seg) :- 

( nonvar (Negstatus) , !; % 1st neg already found - continue segmenting 
foundword(X, Sem, Target) , !, 

( Target = no, Negstatus = X, ! ; 
Sem = neg, Negstatus « X, ! ; 
Sem \e neg, Target \= no, ! 

) ; 
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true, ! % word is undefined 
) , 

append(Start , [X] , Beg) , % part before segmentation 
segment3 (Rest, Newrest, Beg, Negstatus, Seg) , !. 

% for finding type classes - parse as a sentence 
whattoparse (Sem, P, Sent) 

member (Sem, [cfinding, pfinding, morph, disease, device, proc, mproc, descriptor] ) , 
attemptparse (P, Sent , sentence, [Sem] , impression, _) . 

* 

% for bodyloc classes - parse as a bodyloc modifier 
whattoparse (Sem, P, Sent) 

member(Sem, [bodyloc, region, side , position] ) , 

attemptparse (P, Sent , bodypart , t . 
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% file radrecpl 
% September 7, 1999 
% fail an unknown predicate 
: -unknown fail) . 

- op(900, fy, [\+,not,once]) . * same priority and type as \+ 

- op(700, xfx, [\=, -=] ) . % same priority and type as = or == 

- dynamic (domain/1) . % domain being processed 

- dynamic (output form/l ) . % form of output (needed to distinguish 

% markup of text from formatting forms 
:~ dynamic (currentsect/1) . % section for outputting results 

test_genome (Outf ile, Errf ile, Unfile) : - 

get_inputsents ( [] , Toklist) , i, % read in and tokenize input 
(Toklist = [],!, % error condition 
app_errl {_, Outf ile, 'No input sent'), .1 

* 

parse__sentences (Toklist, Fmtlist, Failed, Undef , UnSent , impression, 
bp, genome 0) , I , 

outputresults (Fmtlist, Failed, Errf ile, Undef, Unfile, UnSent, Outf ile, 

full, line, genome, 1, 0 , _, exe, plain) 

) . 

outputresults ( FmtlistO , Failed, Errf ile , Undef , Unfile , UnSent , Outf ile , 

Amount, Type, Exam, Compno, DocComp,NewCompno, Caller, Protocol) : - 
tell (Outf ile) , 

(Protocol = sgml, !, Op = sgml; 
Caller = server, ! , Op » sgml; 
Op = plain) , 

(Type » nested, !, % original output form - nested findings 
write ( ' <nested> 1 ) , new_JLine (Op) , 
write (Fmtlist ) , new_line (Op) , write {' </nested> ') , 
new_line (Op) , 1 

), 

(Caller = server, 

write_message (Unf ile, Undef , Caller , ' <undef ined> 1 , ' < /undef ined> 1 ) 
Caller = exe, Undef \= [] , 

write_message (Unfile, Undef, Caller, »***+* Undefined Words *****•,[]) 
^ %write_highlight ( [] , UnSent, Caller) 

r 

true 
) , 

(Caller = server, 
write ( 1 <noparse> 1 ) , l , 

write_highlight (Undef , UnSent , Caller) , 

write ^highlight ( [] , Failed, Caller) , write ( 1 </noparse> 1 ) 

* 

9 

Caller = exe, Errf ile \= [] , Failed \= [J , 
tell (Errf ile) , 

writeC***** Sentences/Phrases Not Parsed *****•), nl, 

%write_highlight (Undef , UnSent , Caller) , 

writejiighlight ( [] , Failed, Caller) 
• 

true % no Errfile to write to 
) . 

% set_args: Process options 
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% Argument options 

%-p ProbPile (otherwise default is problem messages are not written to file) 

% -i Infile (if input is supplied by file and not standard input 

% -m Mode (default is bp; the 6 choices are bp, model - modeS) 

% -o Outfile (if output should be file and not standard output) 

% -? Provide list of default arguments 

% -pr Protocol - sgml or plain (default is plain) 

% -u Undefs (otherwise default is - undefined messages are not written 
% to a file) 

set_args (Args, Mode, Infile, Outfile, Prbf ile, Undef , Protocol) : - 
set^mode (Args , Mode) , set_amount (Args , Amount) , 
set_protocol (Args, Protocol) , 

set_inf ile (Args, Infile) , set_outf ile (Args , Outfile) , 
set_prbfile (Args, Prbf ile) , set^undefs (Args, Undef ) , 

se t_mode (Args , Mode ) : - 

(nextto ( 1 -m' ,M, Args) ; next to (m,M, Args) ) , !, 

modeis (M,Mode) , ! . 
set_ mode (_, bp) . % default output type 

modeis (relax, mode2) !. 
modeis (strict , model) :- !. 
modeis (skip, mode4) I. 
modeis (longest ,mode3) !. 
modeis (best , bp) !. 
modeis (model, model) !. 
modeis (mode2 , mode2 ) : - ! . 
modeis (mode3 , mode3 ) : - ! . 
modeis (mode4 , mode4 ) : - ! . 
modeis (mode 5 , modes) !. 

set_protocol (Args , Protocol ) : - 

(next to ( ' -pr' , Protocol , Args) ; next to ( *pr 1 , Protocol , Args) ) , 
member (Protocol, [sgml, plain] ) , ! - 
set jprotocol plain) . 
set__undef s (Args , Undefs) : - 

nextto ( 1 -u 1 , Undef s, Args) ; nextto (u, Undefs, Args) , I. % undef file option 
set_undefs {_,[]) . % default is no file of undef ineds created 

set^inf ile (Args , infile) :- 

nonvar (Infile) , !; % Infile is set already 

nextto ( 1 -i* , Infile, Args) , I ; 

nextto (i, Infile, Args) , !. 
set_inf ile user__input) . % default is standard input 

set_prbf ile (Args, Prbf ile) : - 

nextto( '-p' , Prbf ile, Args) , i ; nextto (p, Prbf ile, Args) , !. % prob file option 
setjprbfile{_, [] ) . % default is no file of problems is created 

set_outf ile (Args, Outfile) :- 

nonvar (Outfile) , !; % Outfile is already set 

nextto ( '-o 1 , Outfile, Args) , !; nextto (o , Outfile, Args) , ». % outfile option 
set_outf ile (__,user_output) . % default is standard output 

new_line (sgml) . : - write ( ' <br> 1 ) , nl , ! . 
new_line (server) :- write (• <br> • ), nl , !. 
new line(exe) :- nl. 



42 



WO 00/63687 



PCT/US00/10302 



new_line (plain) : - nl . * 
write_message{_, [] , exe,_,_) ! . 
write_message (U,_, exe, __,_) :- !. 
writejnessage (_, [J , plain, _,_) :- \ . 
write_message < [] plain, _,_) : - ! . 

write_message (File, Contents, Caller , Begmsg, Endmsg) : - 
( member (Caller, [exe, plain] ) , tell (File) , ! 

§ 

true) , 

write (Begmsg) , new_line (Caller) , 

(Contents =* [3; write_list (Contents, 1 ) , new_line (Caller) 
) , 

(Endmsg = [] , ! ; 

write (Endmsg) , i, new_line (Caller) 
) - 

sentend ( IX\_] , Caller) : - 

member (X, [ ■ . • , 1 ; 1 , ■ ? ■ ] ) , new line (Caller) , ! . 



gettargets ([],[] ) :- !. 

gettargets ( [ignore | Rest] , [ignore | Rest] ) % possibly ignore info, 

gettargets ( [Wl | Rest] , [Tl | Trest] ) : - 

foundword (WT, Tl) , % target for Wl 
gettargets (Rest, Trest) , i . 
gettargets (W,W) . % not in lexicon 
isneg(X) :- 

intersect (X, [no, negative, deny, 'rule out']) . 

writeoutsent ( [Word (Rest] ) 

write ( » 1 • • ) , write (Word) , write ( ' ■ ' 1 ) , I , 
(Word = » » ' » , write ( • ' • » ) , ! ; true) , 

(Rest \= [] , write (',»), !, writeoutsent (Rest) , !; . 
true) , ! . 
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% This file contains predicates associated with SGML tags 
% nextTag (+L,Tag, -PreTag, -PostTag) is true if 
% L is the starting List 

% Tag is an SGML tag; it could be a variable or instantiated already 

% PreTag is portion of L preceding Tag 

% PostTag is portion of L following Tag 

nextTag (L, Tag, PreTag, PostTag) : - 

append (PreTag, [■<« ,Tag, 1 >* (PostTag] ,L) . 

% endTag (+L, +Tag, -Pre, -Post) is true if 
% L is the starting list 

% Tag is the SGML end tag 

% Pre is the portion of L preceding the end of tag 

% Post is the portion of L following the end of tag 

endTag (L, Tag, Pre, Post) :- 

append( [Pre, [•<■ , '/' ,Tag, •>•] , Post] ,L) > 

% enclosedPart (+L, +Tag, -Enclosed) is true if 

% L is the starting List; it is assumed that L is portion of some 

% list that follows a begin tag - i,e. » <',Tag|L 

% Tag is the SGML tag 

% Enclosed is the portion of text enclosed in tag; not including 

% end tag. 

enc? osedPart (L, Tag, Enclosed, Post) : - 
endTag (L, Tag, Enclosed, Post) . 



44 



WO 00/63687 



PCT/US00/10302 



% file useful.pl - lexical lookup and utility tools 

: -unknown fail) . 

: -dynamic (sentence/i) . 

:- op(900, fy, [not,once]). % same priority and type as \+ 

: - op(700, xfx, [\=,~=]). , % same priority and type as - or =** 

% useful.pl February 21, 1992 

% 

% preprocess (+S, +Bsl, -u, -Sem3,+Mode) : preprocesses sentence to 



% bracket lexical phrases and remove words/phrases in 

% special db of noise words (nosetn in nsphrase.pl db) 

% S is original sentence 

% Bsl is preprocessed sentence 

% U is list of undefined words in sentence 

% Mode is mode of process - in skip mode undefined words are removed 

% from preprocessed sentence 



preprocess (SO , Bsl, U, Sem3 , Mode) %cfnew 

checkbeg(SO,S) , % if beginning is 'A)' ignore 

checkphrase(S,Sl,Seml) , % bracket all phrases in phrasal lexicon first 
checklist (SI, Ul , Bs, Sem2 , Mode) , % check that all words are in lexicon, remove 
non semantic 

checklist (Bs,U, Bsl, Sem3, Mode) . % check for phrases after non-sem are removed 
%append (Semi , Sem2 , Semi ) , 
%append (Semi , Sem3 , Semlist ) , 

%union.(Ul,U2,u) . 

% found checks if word X is defined as a single word, or if X starts a defined 

% phrase 

f oundword (X) : - 

wdef(X,_,_), !. 
f oundword (X) :- 

semw{X,_,_ / J , I . 
%defdnition from tagged input 
f oundword (X) 

phr (X, / i . 
f oundword ( [X | Rest] ) : - 
Rest \ = [] , 
phrasal (X,_, [X | Rest] , !. 
% 3/99 added f oundword to search the new semact.pl lexicon 
% phrasal using semp was added to util.lp 
% found/2 returns semantic cat. of word 
f oundword (X, Sem) :- 
wdef (X, Sem,J . 
f oundword (X, Sem) 

semw(X, Sem,_,_) . 
%definition from tagged input 
f oundword (X, Sem) 

phr (X, Sem, [],_). 
f oundword ( [X | Rest] , Sem) : - 

phrasal (X, Sem, [X|Rest] . 
% found/3 returns semantic cat. and target form 
f oundword (X, Sem, Form) : - 

wdef (X, Sem, Form) . 
f oundword (X, Sem, Form) : - 

semw (X, Sem, Form, . 
%definition from tagged input 
f oundword (X, Sem, Form, J : - 

phr (X, Sem, [] ,Form) . 
f oundword { [X | Rest] , Sem, Form) : - 
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phrasal (X, Sem, [X|Rest] , Form) . 

%collectsem(+Word, -Sem) : Sem is the list of semantic classes corresponding 
% to Word 

col lectsem (Word , Sem) : - 

setof (X, foundword (Word, X) , Sem) . 
% missing checks if a word present in a sentence is defined 
missing (X) : - 

member (X, S) , 

not foundword (X) . 

% checkbeg (+S0, -S) checks beginning of sentence; if it begins with a letter or 
% number followed by a ■ ) » , that part is skipped 
checkbeg ( [X, » ) 1 |Rest] ,Rest) !. 
checkbeg (X, X) . 

♦ 

% checks every word in a list to see if it is defined; creates 
% a new list of words not defined, and a new list of sentence 
% where phrases are bracketed. ' 
checklist ( [] ,[],[],[] ,_) . 

% if X is a list it has already been identified as a phrase in phrasal lex 
checklist ( [XjRest] , Undef , Newrest , Semi is t, Mode) : - 
is_list (X) , 

check_no_sem ( [X|Rest] , Restl,_) , 

checklist (Restl,Undef , Newrest , Semlist , Mode) , !. %is phrase part of nosem 
checklist ( [X|Rest] , Undef , [X|Newrest] , Semlist , Mode) 
%collectsem (X, Sem) , 
is_list(X), X = [Wl|Tail], 
phrasal (Wl, Sem, X,_) , 

checklist (Rest, Undef , Newrest, Sem2 , Mode) , ! , 

append ( [Sem] , Sem2 , Semlist) . 
checklist ( [without | Rest] ,Undef , Newr est , Semlist, Mode) 

checklist ( [with, no | Rest] ,Undef, Newr est, Semlist , Mode) . 
% this problem has to be fixed in preprocessor 
% check for a number with a 1 ,» - "11,200" and fix it 
%checklist ( [X, ' , 1 ,Y|Rest] ,Undef , [N| Newrest] , [number | Semlist] ,Mode) 
% number (X), number (Y) , N is X * 1000 + Y, !, 
% checklist (Rest, Undef , Newrest , Semlist, Mode) , ! . 
% check for a literal number %cfnew 

checklist ( [x|Rest] , Undef , [X | Newrest] , [number | Semlist] ,Mode) 
number (X) , 

checklist (Rest, Undef , Newrest, Semlist , Mode) , \ . 
% beginning of List is a prefix of a phrase that is a complete finding 
checklist (List, Undef , [Phrase | Newrest] , [cfinding | Semlist] ,Mode) :- 

check_sem_f inding (List , Rest , Phrase) , 

checklist (Rest, Undef, Newrest, Semlist , Mode) , !. 
% beginning of List is a prefix of a phrase that is in nosemantic lexicon 
checklist (List, Undef , Newrest, Semlist , Mode) ;- 

check_no_sem(List , Rest , Phrase) , 

checklist (Rest, Undef , Newrest, Semlist, Mode) , 1 . 
% beginning of List is a prefix of a phrase that is in phrasal * lexicon 
checklist (List, Undef , [Phrase [Newrest] , Semlist , Mode) 

get_longest_sem (List, Rest, Phrase, Sem) , 

%check_sem (List, Rest, Phrase, Sem) , %change to get longest phrase 

checklist (Rest , Undef, Newrest, Sem2 , Mode) , I , 

append (Sem, Sem2 , Semlist) . 
% beginning of List is a single word that as in semantic lexicon 
checklist ( [X | Rest] , Undef, [X | Newrest] , Semlist, Mode) 
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collectsem(X, Sem) , !, 
fcfoundword (X, Sem) , ! , 

checklist (Rest, Undef , Newrest , Sem2 , Mode) , !, 
append (Sem, Sem2, Semi ist ) . 
% beginning of List is an undefined word 
checklist ( [x|Rest] , Undef s , Nrest , Semlist , Mode) :- 
checklist (Rest , Undef , Newrest, Semi ist, Mode) , 
(member (X, Undef ) , ! ; Undef s = [X| Undef] , ! ) , 
(Mode m skip, !, Nrest = Newrest; 
Mode = bpskip, ! , Nrest = Newrest; 
Nrest = [X | Newrest] ) , I . 

% if beginning is a number followed by a . followed by a non number 
'% skip; %cfnew 

checkphrase ( [X, . 3 , [X, . ] , [] ) : - ! . 
checkphrase ( [X, . , Z | Rest] , Y, Semlist) : - 

number (X) , not (number (Z) ) , checkphrase (Rest , Y, Semlist) , 1 . 
% beginning of List is a prefix of a phrase that is a complete finding 
% or a phrase in phrasal lexicon 
checkphrase (List, (Phrase | Newrest] , Semlist) 

(check_sem_f inding (List, Rest, Phrase) , Sem = [cf inding] ; 
get_longest__sem(List, Rest, Phrase, Sem) 

>, \, 

%check_sem (List, Rest, Phrase, Sem) ) , !, 

checkphrase (Rest, Newrest , Sem2) , I , 

append(Sem, Sem2, Semlist) . 
checkphrase ( [w|Rest] , [wj Newrest] , Semlist) 

checkphrase (Rest/ Newrest , Semlist) . 
checkphrase ([],[],[]). 

check_sem_f inding ( [wjTail] ,Tail,W) :- 

W « [Wl|Rest], % W is bracketed already 

sem_f inding_sent (Wl, W,_) . 
check_sem_f inding ( [W|Tail] , Sfinal, Phrase) 

sem_f inding_sent (W, Phrase, _) , 

begsublist (Phrase, [W|Tail] , Sfinal) , !. 
sem_finding_sent (_,_,_) :- fail. 

% check_no_sem(+Sent, -Rest, -Phrase) : removes Phrase from Sent resulting 
% in Rest if Sent begins with a phrase in nosem (non-semantic list) . 
check_no_sem ( [W | Tail] , Sfinal , Phrase) : - 

nosem (W, Phrase) , %phrase beg. with W that should be removed 

begsublist (Phrase, [WjTail] , SI) , 

remove^comma (SI, Sfinal) , !. % remove " , " if it is next 
%get_longest__sem(+Sent, -Rest, -Phrase, -Sem) : Phrase is longest phrase that is 
% a prefix of Sent; Rest is remainder and Sem is list of semantic classes 
get_longest_sem(Sent , Rest , Phrase, [Sem]) :- 

setof (X,check_sem(Sent,X) ,L) , % set of Phrases 
maxphrase(L, [], Phrase, 0) , % Phrase with maximum length 

append (Phrase, Rest, Sent) , % rest of sentence after Phrase 

f oundword ( Phrase , Sem) . 

% check_sem(+Sent, -Rest, -Phrase, -Sem) : checks if phrase beginning with 

% Sent is in phrasal lexicon; Rest is the remainder of Sent after phrase 

% Sem is the semantic class 

check_sem( [w|Tail] , Rest , Phrase, Sem) 

phrasal (w, Sem, Phrase, _) , 

begsublist (Phrase, [W|Tail] ,Rest) . 



47 



WO 00/63687 



PCT/USOO/10302 



% this also obtai'ns the Target form 

check_sem( [W|Tail] , Rest, Phrase, Sem, Target) :- 

phrasal (W, Sem, Phrase, Target) , 

begsublist (Phrase, [W|Tail] ,Rest) . 
check_sem( [W|Tail] ,Tail, W,Sem) : - 

is_list (W) , %enclosed in brackets means it is a phrase 

W = [Wl|Rest] , 

phrasal (Wi, Sem, w, _) , I . 
check_sem( [W|Tail] , Tail , W, Sem, Target ) 

is_list (W) , %enclosed in brackets means it is a phrase 

W = [Wl|Rest] , 

phrasal (wi, Sem, w, Target) , 
% check_sem (+Sentence, -Phrase) is similar to check_sem/4 except for fewer args 
check_sem (Sentence, Phrase) :- 

check_sem (Sentence, , Phrase, ). 
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% file util.pl 

%%%%%%%%%%%%%%%% Utility Predicates %%%%%%%%%%% 

% fail an unknown predicate 
: -unknown fail) . 
:- op(90Q, fy, [not,once]). 
:- op{700, xfx, [\a,-=]). 

:- dynamic (wfst /6 ) . 

dynamic (addstotal/1) . 

dynamic (paragno/1) . 

dynamic (sectno/1) . 
:- dynamic (phr/4) . 

% wfst (+Rule, +Number, +Res, +Fmt, +S0, +S) : well-formed symbol table 



% Rule is the name of rule; Number is the option number 

% Res is s for success and f for failure 

% Fmt is the format (for successes) ; for failure Fmt is 13 

% SO is the sentence position at the start of Rule 

% s is the sentence position when Rule has been completed 

% add to wfst 



adds t (Rule, Number, Res, Fmt, SO, S) 

\+ checkst (Rule , Number , Res , Fmt , SO f S) , %result for rule was saved already 
\+ checkst (Rule, Number, i, Fmt, SO, S) , % result from different rule saved 
( checkst (Rule, Res, Fmt, SO, S) , % different rule produced same result 

assert (wfst (Rule , Number , i, Fmt , SO , S) ) ; 
assert (wfst (Rule, Number, Res, Fmt, SO , S) ) ) , ! . 
addst (_,_,_,__,_,_) :- !. % always succeed 

% checkst (+Rule, -Number, -Res, -Fmt, +S0, -S) : checks to see if rule has been saved 
% in wfst 

checkst (Rule, Number, Res, Fmt , SO, S) : - 
wfst (Rule, Number, Res , Fmt , SO, S) . 

% beglist (L,Y) - is Y the head of list L 
beglist ( [X|_] ,Y) X = Y , !. 

% splice -L2) : LI is a list of lists; L2 is merged list 
splice (LI, L2) :- append ( LI, L2) , I. 
%splice( [],[]) ! . 
%splice( [ []],[]) :- ! . 
%splice( [X] ,X) : - ! . 

%splice( [ [] |L1] ,L2) :- splice (LI, L2) , 1 . 

%splice( [ [ [] ] |L1] ,L2) :- splice (LI , L2) , I . 

%splice( [X| [ [] ] ] ,L) splice (X, L) ,! . 

%splice( [L1,L2] ,L3) ;- 

% append (LI, L2, L3) , i. 

%splice( [X|L1] ,L2) :- 

% splice(Ll, L3) , 

% • append ( X, L3, L2) , !. 

%splicerel - works with relations which have Argl , . , . , Argn. 
% It splices a Splicelist in each arg of relation 

splicerel (Finding, Splicelist, Spliced) : - 

splice (Splicelist, Spl) , 

(Finding = [rel,X|Rest] , spliceargs (Rest , Spl , Sp) , 
%splice ( [ [rel , X] , Sp] , Spliced) , ! ; 



% same priority and type as \+ 
% same priority and type as = or == 
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append { [rel , X] , Sp, Spliced) , I ; 

%splice ( [Finding, Spl] , Spliced) ) . 

append (Finding, Spl, Spliced) ) . 
%spliceargs - Splices a list into each element of a list 
spliceargs ([],_,□ ) : - i . 

spliceargs( [Argl|Rest] , Splicelist , Spliced) :- 

%splice( [Argl, Splicelist] , Sargl) , 
append (Argl , Splicelist , Sargl) , 
spliceargs (Rest , Splicelist , Srest) , 
%splice ( [ [Sargl] , Srest] , Spliced) . 
append ( [Sargl] , Srest , Spliced) . 

list( [] ,[]). 

list( [X| []] ,X) . 

list ( [X|L1] ,L2) 1 ist (LI , L3 ) , 

append ( [X] ,L3,L2) , \ . 



% strip (Ll , L2) removes extra square brackets from L 
strip ( [L] , L) . 



fc B is a suffix of A and C is the difference 
dif flist (A, B, C) :- append (C, B , A) . 

% S is a sublist at beg. of L if there is a list Rest, which when appended 
% to S results in L. 

begsublist (S,L,Rest) :- append (S, Rest, L) , !. 

% checks that first element in list S has semantic category in Semlist 
f irstword( [Wl |_] , Semlist) :- 

atom(Wi), wdef (Wl, Sem,_J , % semantic category 

member (Sem, Semlist) . 
firstword ( [Wl | _] , Semlist) :- 

is_list (Wl ) , phrasal (Wl , Sem, _) , 

member (Sem, Semlist ) . 
% removes phrases from first arg that are in nsphrase - lexicon of non-sem. 
phrases 

remove_no_jsem( [],[]) : - I - 
remove_no_jsem( [W|Tail] , Sf inal) : - 

nosem (W, Phrase) , %phrase beg. with W 

begsublist (Phrase, [W|Tail] , SI) , %remove from sentence 

remove_comma (S1,S2) , %remove "," if it is next 

remove_no_ sem (S2 , Sf inal) , !. 
remove_no_sem ( [W | Tail] , Sf inal) : - 

remove_no_sem (Tail , SI ) , 

append ( [W] , SI, Sf inal) , !. 
remove_comma ( [ 1 , ' | Tail] , Tail) . 
remove_comma ( S , S ) . 

% remove_sem(+Sent, -NewSent) : Sent is the original sentence, NewSent is 
% stripped of all phrases that are defined in lexicon 
remove_sem( [],[]) : - ! . 
removers em ( S , NewS ) : - 

check__sem(S,Rest ,_,_) , % phrase in sent, is in lexicon - remove it 

remove_sem (Rest, NewS) , i. 
r emo ve__s em ( S , NewS ) : - 

check_no_sem(S,Rest,_) , % phrase in sent, is in nosem list - remove it 

r emove_s em (Rest , NewS) , ! . 
remove_sem( [X|Tail] , [XjNewS] ) :- 

remove_sem (Tail, NewS) , !. % not a phrase, process rest 
% remove_words (+Sent, -NewSent) : Sent is the original sentence, NewSent 
% is stripped of all words that are in lexicon 
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remove^words ([]*[]):-!. 
remove_words ( [X | Rest] , NewRest) : - 

( (foundword(X) ; number (X) ) , % X is defined in lexicon 
remove_words (Rest , NewRest ) , \ ; 

remove_words (Rest, New) , NewRest = [X|New], ! % X is not in lexicon 

) . 

%maxphrase (+Listof Phrases, +Maxin, -MaxOut, InitMaxLen) is true if 
% ListofPhrase is a list of multi-word phrases, 
% Maxin is phrase with maximum words so far 

% MaxOut is phrase with maximum length of phrases in Listof Phrases 

% InitMaxLen is length of initial phrase which is of max. length 

maxphrase ( [] , Maxin, Maxin, _) :- !. % no more phrases - maximum is same as maxm 
maxphrase( [P|Rest] , Maxin, Maxout, InitMaxLen) 

length(P,Len) , % length of first phrase 

( Len > InitMaxLen, !, maxphrase (Rest, P, Maxout, Len) ; 

Len < InitMaxLen, !, maxphrase (Rest , Maxin, Maxout , InitMaxLen) 

) . 

%%%%%%%%%%%%%%%%%%%%%%%%%%% lexical interface predicates %%%%%%%%%%%%%%%%%%%%%% 
%acclex(Sem,w,SO, S) :- 

% outputform(htext) , !, acclexl (Sem, W, SO , S) . 
acclex (Sem, W, SO , S) :- 

acclex2 (Sem, W, SO, S) . 
acclex (Sem, W, SO, S) 

acclexss (Sem, Syn, Target , Features , SO , S) . 
% check lexicon for word or phrase, Target form is original W 
acclexl (p, [P,C] , [W | Rest] ,Rest) : - 
is_list (W) , 

f ind_semjphrase (p«, (P/C] ,W) . 
acclexl {p, [P,C] , [W|S] ,S) :- atom(W), 

wdef (W,p, [P,C] ) . 
acclexl (Sem, [W] , [w|Rest] , Rest) 

is_list(W), %if bracketed list, get Sem and Code from phrasal lexicon 

find sem phrase (Sem, , W) . 

■ ■ ™ ■ * 

acclexl (Sem, W, [W|S] ,S) :- atom(W) , 

wdef (W,Sem,_) . 

% check lexicon for word or phrase, Target form is taken from lexicon 
%acclex2 (Sem, Code, [W|Rest] ,Rest) : t 

% isJList(W), %if bracketed list, get Sem and Code from phrasal lexicon 

% find_sem_phrase<Sem,Code,W) . 

acclex2 (Sem, Code, [W|S] ,S) foundword (W, Sem, Code) , 

nonvar (Code) . % protect against 

lex. error 

% find a phrase [W|Tail] in lexicon that begins with W and has category Sem 
f ind_sem_phrase (Sem, Code, [WjTail] ) : - 

phrasal (W, Sem, [W| Tail] , Code) , % phrase and code beg. with W 

nonvar (Code) . 

% case where phrase is already bracketed, look up phrase 
sem_f indingjphrasel (Code, [W|Tail] ,Tail) :- 

is_list (W) , %phrase is bracketed 

f ind_sem_sent (Code , W) , 
nonvar ( Code ) . %protect against lexical error 
% case where phrase is already bracketed, look up phrase 
sem_f indingjphrase2 (Code, [W|Tail] ,Tail) : - 

is_list(W), %phrase is bracketed 
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f ind_sem_sent (Code, W) , 
nonvar (Code) . %protect against lexical error 
% Phrasal succeeds if lexicon contains phrase 
phrasal (Wl , Sem, Phrase , Code) : - 

phrase (Wl,Sem, Phrase, Code ,_) . %multi- word phrase in lexicon 
% added MarchlS, 1999 
phrasal (Wl, Sem, Phrase, Code) 

semp (wi , Sem, Phrase, Code, Features) . 

% lexical definition from marked up input 
phrasal (Wl, Sem, [Wl | Tail] / Code) 

phr (Wl , Sem, Tail, Code) . 
acclexss (Sem, Syn, Target, Features, [W|S],S) :- 

atom (W) , 

semw (W, Sem, Target , Features ) , 
synw(W, Synclass) , 
member (Sync lass, Syn) . 
acclexss (Sem, Syn, Target ^Features, [W|S] ,S) 

isJList (W) , 

f indjphrasess (w,Sem, Syn, Target , Features) . 
f ind_phrasess ( [Wl|Tail] , Sem, Syn, Target , Features) 

semp (Wl, Sem, [WljTail] , Target , Features) , 
synp(Wl, [Wl | Tail] , Synclass) , 
member (Synclass, Syn). 

% lexical definition of a complete finding 
f ind_sem_sent (Code, [W|Tail]) :- 

sem_f inding_sent (W, [W|Tail] ,Code) . 

listify (C, [C] ) : - 

atom (C) , ! . 
listify(C,C) 

is_ list (C) , ! . 

% distributes left mods and right mods over list of findings creating 
% list of lists of findings with mods 
distributemods {[],[], _,_,_) :- !. 

distributemods(Dist, (DljTail] , Lmods , Rmods , Type ) :- 

• distributemods (Dist2, Tail, Lmods, Rmods, Type) , %distributed for remainder 
mergemods (Lmods , Rmods , Al lmods ) , 

frame (D, Type, Dl,Allmods) , %Type frame with mods 

append ( [D] ,Dist2,Dist) . % Combine findings to get list of findings 

% fixconj - if Leftmods has [certainty, no] , and Conj » or, change Conj to and. 
% no A or B » no A and no B; 'denies A, B, or C is similar, 

fixconj (Leftmods , Conj , [rel , and] ) : - 

(member ( [certainty, no] , Leftmods) ; member ( [certainty, deny] , Leftmods ) ) , 

Conj = [rel, or] . 
fixconj (_, Conj, Conj) . 

% write_sentences/l inputs a PROLOG list and prints out lines 

% which which are English sentences. No wrapping is done. 

write_sentences ( [] ) :- !. 

write^sentences ( [X] ) : - write (X) , nl . % special sentence - section name 

write_sentences ([ , < , ,p, , / , # , >*]) s - 

write ( 1 <p/> • ) , nl . % paragraph mark 
write^sentences ( [X | Rest] ) 

upper__f irst ( [x|Rest] , [U(Rest] ) , 
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write (U) , % First letter of first word made upper case 
%write(X), 

(X - U, chkforpunct (U,Rest) , !, write_terms (Rest) ; % no space needed 
write (' • ), write_terms (Rest) 
) . 



% write_sentence/2 inputs a PROLOG list and prints out an English 

% sentence wrapped. Idlen is the starting position of the sentence 

% in the output. 

% uses libraries ctypes, basic, not 



write_sentence ( [X | Rest] , Idlen) : - 

upper_first ( [X|Rest] , [U|Rest]), 
write (U) , 

name(U,LU) , length (LU,L) , 

(U = X, chkforpunct (U, Rest) , », write_terms (Rest , L+Idlen) ; 
write ( ' ' ) , write___terms (Rest, L+Idlen+1) 
) . 

% write_list inputs a PROLOG list and prints out a sentence like list. 

% wrapped. Idlen is the starting position of the list in the output. 

write_list ( [X | Rest] , Idlen) : - 
write (X) , 

name (X , LU) , length (LU, L) , 

( chkforpunct (X, Rest) , write_terms (Rest , L+Idlen) , 1; 
write (' '), write_terms (Rest, L+Idlen+1) ) . 
%write_list (+List, +Idlen, -Idlenout) 

% write_list prints out a sentence like list with wrapping if necessary. 

% List is the list to be printed 

% Idlen is the column position at start 

% Idlenout is the column position at end 

write_list ( [J , Len, Len) !. 

write_list ( [X | Rest] , Idlen, Idlenout) : - 

atomic (X), write (X), 

name(X,LU), length (LU, L) , 

(L + Idlen > 74, nl, Idlen2 ■ 1, I; 
Idlen2 ■ L + Idlen, ! 

) , 

(chkforpunct (X, Rest) , write_list (Rest , Idlen2 , Idlenout) , I ; 
write (' '), write_list(Rest,L+Idlen2+l, Idlenout) , I 

); 

is_list(X), writeJList (X, Idlen, Idlen2) , write_list (Rest , Idlen2 , Idlenout) . 

upper_f irst ( [X | Rest] , [U | Rest] ) : - 
name(X, [L|Z]), 
(is_alpha(L), Up is L - 32, I ; Up = L) , 
name (U, [Up | 2] ) , I . 

% write_terms/l writes out a word followed by blank, except for punctuations. 

write_terms ( [] ) : - ! . 

% case where X is end of sentence 

write_terms ( [X | Rest] ) :- 

(X = 1 . 1 ; X = ' ; 1 ) , % last word of sentence 

write (X), nl, !, write_sentences (Rest) , 1. 
% case where X is interior of sentence 
write_terms ( [X|Rest] ) :- 
write (X) , 

(chkforpunct (X,Rest) , write_terms (Rest) ; 
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write ( • ' ) , write_terms (Rest) 
) , i . 

% write_terms (List , Used) : writes the terms in list and counts the number 
% of columns used; starts new line if 7 5 columns have been used 

write_terms ( [] , _) :- !, 
% at end of list 

write_terms { [ . ] , _) write {*.'), nl, ! . 
write_terms ( [ ; ] , __) write (';')/ nl,!. 
% X is a punctuation, don't add to final count 
write_terms ( [X j R] , Used) 

( R = [J , write ( ■ » ) , write (X) , ! ; 

chkf orpunct (X, R) , 

write(X), write_terms (R , Used) , ! 

) . 

% X is last word in sentence 
write_terms ( [X, . ] , Used) : - 

name(X, List), length(List, hen), 

Need is Len + 2, 

Total is Used + Need, 

(Total 75, write (' '), write (X), write (.); 
Total > 75, nl, write (• , ) / write(X), write!.)), 
nl , I . 

% X is last word in sentence 
writs_terms ( [X, ; ] , Used) : - 

name(X, List), length(List, Len), 

Need is Len + 2, 

Total is Used + Need, 

(Total =< 75, write (• »), write (X), write (';') ; 
Total > 75, nl, write ( • '), write (X) , write (.)) , 
nl , i . 
% X is followed by 1 , 1 
write_terms ( [X, 1 , ' |Rest] , Used) :- 
name(X, List), length(List, Len), 
Need is Len + 2, 
Total is Used + Need, 

(Total =< 75, write (' •), write (X), write (',') , 
write_terms (Rest , Total); 

Total > 75, nl, write ( 1 '), write (X), write ( 1 , ' ) , 
New is Need - 1, write_terms (Rest , New)), 

! 

% writes blank + name of X, used is length of name+1 
write_terms ( [XjRest] , Used) : - 

name(X, List), length(List, Len), 

Need is Len + 1, 

Total is Used + Need, 

(Total 75, writep '), write(X), write_terms (Rest , Total); 
Total > 75, nl, writep »),write(X), write_terms (Rest , Len)),!. 
write_terms ( [ » X.» ■ s ■ | Rest] , Used) : - 
name(X> List), length(List, Len), 
Need is Len + 3, 
Total is Used + Need, 

(Total =< 75, write (* '), wr.ite (X) , write (" ' s " ) , 
write_terms (Rest, Total) ; 

Total > 75, nl, write(X), write_terms (Rest , Len)),!. 
% processes sentences in Infile; writes formats to Outfile 
% sentences beginning with '%* are treated as comments 
testsents (Infile, Outfile) : - 
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see(lnfile), seen, see Unfile), 

tell (Outf ile) , 

readtests, 

see(lnfile), seen, told. 
% reads next sentence and processes it 
readtests : - 

read_in (X) , 
(X = end_of_f ile, I ; 
X = [eoff, 1 • '3 , - ; 
x = [ ' ■ 3 , s ; 

X = ['* f U' readtests; % don't process comments 
preprocess (X, Bs, Undef , Semlist , skip) , 
{ Undef = [] , 

dosent (X, Bs, Semlist, Fmt, Message, impression, W, chestxray, strict , 0) , 
write^sentence (X, 1) , write (Bs), nl, 
write (Fmt) , nl; 

Undef \- [] , write_sentence(X,l) , write(Bs), nl, write (Undef ) , nl) , 
readtests % read next sentence 

) . 

% Reads in all sentences from input file and creates one list of all sentences 
get_inputsents (Prevlist , Toklist) : - 
read_in (X) , 

(X = end_of_file, Toklist * Prevlist, !; 
X m [eoff, 1 . '3 , Toklist = Prevlist, ! ; 
X « [''3/ Toklist * Prevlist, !; 

(last ( 1 1 , X) , append (Toklist, [••] ,X) , ! ; %remove 

append(Prevlist,X,Newlist) , 

get_inputsents (Newlist, Toklist) 
) ) . 

%get_sentence (+A, -B, -C) 

% Gets next sentence from input list containing all sentences read in 
% Don't end a sentence if " . " is preceded by a number and followed by 

a number and unit measure - 1.25 cm, 1.5 cm, .5 cm 
% or is followed by a " . " which is part of abbreviation 
% get_sentence(A,B,C) - A is list of all sentences in report. 
% - B is list containing one sentence 

% - C is remainder excluding B 

% sgml tag for multi-word phrase containing • . 1 that is not end of sentence 
get_sentence ( [ 1 < ' ,phr | Tail] , Sentence, LRest) :- 

enclosedPart (Tail, phr, Between, Rem) , % Between beg. part of open phr and 

close tag of phr 

append ( [sem, = ' ,Sem, ' » • ] ,MoreAt tributes, Between) , %Sem is value of sem 
attribute 

(MoreAttributes * [•>' | Phrase] , TargetList * Phrase, i; 
MoreAttributes = [t , =, "" | TargetPlus] , % Target terms plus end of phr 
append (TargetList, [ • ••',»>' | Phrase] ,TargetPlus) , « % t attribute followed 
by actual phrase 
) , 

Phrase = [Wl|Rest], 

append (Phrase, SRest, Sentence) , 

concat_atom (TargetList, Target) , 

assert (phr (Wl, Sem, Rest, Target) ) , % assert lex def according to input 
%Phrase = [wi|PRest], 
%abbrev(Wl, [Wl|PRest] , Target, _) , 
get_sentence (Rem, SRest, LRest) , i . 
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% Ignore sentence starting with 1 get next sentence 
get_sentence( [ 1 % ' , ' % 1 jRest] , Sent , Remainder) : - 
get_sentence (Rest, Rem) , 
get_sentence (Rem, Sent, Remainder) . 
get_sentence ( [X, . ,Y, ZjRest] , [X, .] , [Y,Z|Rest] ) % break up "140. 3+" 

number (X), number (Y) , Z = ♦ + », !. % Y belongs to for new sentence 

get^sentence ( [X , , , Y, Z | Rest] , [N | SRest] , LRest ) :- % 1-5 cm 

number (X) , number (Y) , 
% (wdef (Z,unit,_) ; Z « x) , 
Z \= » + ', % break up "140. 3+ u 

name(X,Dl), name(.,D2), name(Y,D3), name ( ■ E+00 * , D4) , 
append( [Dl , D2 , D3 , D4 ] , D) , name(N,D), % put number together 
get_sentence { [Z|Rest] , SRest , LRest) . 
% common abbrev * - 

get_sentence ( [X, . | Rest] , [X | SRest] , LRest) % abbrev ending in » . » 

% list of common abbreviations seen in reports should not end sentence 

member (X, [vs, dr, cm, mg] ) , getjsentence (Rest , SRest , LRest ) , ! . 
% list of start of names in reports should not end sentence 
get^sentence ( [X, . |Rest] , [X | SRest] , LRest) :- % abbrev ending in 

member (X, [ms,mr,mrs, dr, st] ) , 

skipname(Rest,RestO) , % skip name part 

get^sentence (RestO, SRest , LRest) , !. 
% more known abbreviations 

get_sentence ( [Wl | Rest] , [Rep | SRest] , LRest) : - 

abbrevchk ( [Wl | Rest] , Rem, Rep) , % abbreviation 

get_sentence (Rem, SRest , LRest) , ! . 
% possible simple xml tag for new paragraph 

get_sentence( ['<' ,p, ' /•/ ■>' | Rest] , Sent , Rem) %skip paragraph marker 

get_sentence (Rest , Sent , Rem) , ! . 
% xml tag for sentence 1 <s>* 

get_sentence (['<', a,' >'| Tail] , Sentence, Rest) : - 
enclosedPart (Tail , s , Sent , Rest ) , 

(last ( • . ■ , Sent) , Sentence = Sent, ! ; %already has 1 . » 
append(Sent, [.] , Sentence) 
) , ! . .. %add ■ . ' 

get_sentence ( [. (Rest] ,[.], Rest) !. %end of a sentence 
get_sentence ( [ ; j Rest] , [ ; ] , Rest) : - ! . 
% interior of sentence 

get_sentence ( [X|Rest] , [X | SRest] , LRest) 

get_sentence (Rest, SRest, LRest) . 

get_sentence ( [],[],[]). % no more sentences 

% abbrevchk (+WordList, -AbList, -RemList, -Target) is true if an abbrev is prefix 

% of WordList, RemList is suffix of WordList (excluding prefix), 

% AbList is prefix consisting of abbreviation 

% and Target is target form of abbreviation 

abbrevchk ( [Wl | Rest] , AbList , RemList , Target ) : - 

abbrev (Wl, AbList, Targe t, Dom ) , % abbrev knowledge base indexed by 1st wor 
append (AbList, Rem, [Wl|Rest]), % remainder of abbrev. must be in sentence 
(Dom =» general, !; % abbrev. applies to all domains 
domain (Thisrep) , Dom Thisrep, !; % abbrev. applies to this domain 
is_list (Dom) , member (Thisrep, Dom) % this domain in abbrev. list 
>, 

( % add back 1 . • to sentence if it also signals end of sentence 
Rem = [] , lastO . r , AbList) , RemList = ['.'], ! %no more words 
; % words that generally start a new sentence 
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Rem - [W2|_], last ( ' . ' , AbList) , member (W2 , [his , her , he , she, the , this] ) , 
RemList m f . • | Rem] , I 
% don • t add ' . ' back 
RemList - Rem 

) . 

% skipname (+Beglist / -Endlist) : skips next word after "mr" or "st" 
skipname ([],[] ) : - . 

skipname( ' ' ' ' ,s|Rest] ,Rest) :- i. % "Luke's" 
skipname ( [o, • •■' ,_| Rest] , Rest) : - ! . % "O'Grady 
skipname { [_j Rest] , Rest) :- i._ 

%get_section (+Toklist , -Sents, -Rest , -Section, -Printname , Addno) 
% Toklist contains input list; 1st sentence should be a header; 
% Sents are all sentences in section; Section is name of section 
% Sentences at beg. of Toklist are ignored until a section header is found 
get_section ( [T| Toklist] , Sents, Rest, Section, Printname , Addno) : - 
% first sentence should be section header 
get_sentence ( [T| Toklist] , Sentence, RToklist) , 

(section_header (Sentence, Rsent, Section, Printname) , % Sentence is a section 

header 

append (Rsent , RToklist , RToklist2 ) , 
get_sectionsents (RToklist2 , Sents, Rest) , 

(Addno =0, !; % testing if input begins with section- header 

Addno - 1, ! , sectno (Sectno) , Newno is Sectno + 1, 

retractall (sectno (_) ) , assert (sectno (Newno) ) 
) , 

retractall (paragno (_) ) , assert (paragno (1) ) , %lst parag. of section 
retractall (sentno (_)) , assert (sentno (0) ) %lst sentence of parag. 
; % 1st sentence is not a legitimate header - return [] 
Section = [] 

% get_jsection (RToklist, Sents, Rest, Section) % skip till find header 
~>, i. 

get_section( [] ,[],[],[] ,_, J . 
get_sectionsents ([],[],[]) : - ! . 
get_sectionsents (Toklist, Slist ,Rest) : - 

getjsentence (Toklist , Sentence, RToklist) , % one sentence 
(\+ sect ionjheader (Sentence, , %more sentences in section 
get_sectionsents (RToklist , RSents , Rest) # 
append (Sentence, RSents, Slist ) 
; % the next section is a section header - return 
Rest = Toklist, Slist = (]>■ 

sect ionjheader (S, Rests, ' report clinical information item', 
» CLINICAL INFORMATION: . ' ) : - 
(S = [clinical, information, ■ : 1 ,'.♦] , t, Rests » [3 ; 
begsublist ( [clinical, information, 1 ,S, Rests), ! ; 
S = [clininfo, • : ' , • . '] , Rests « [] , 1 ; 
begsublist { [clininfo, ' : ' ] ,S, Rests) , ! 
) . 

sect ion__header (S, Rests, 1 report impression item 1 , 

'IMPRESSION: . ') :- 
(S = [impression, ':',.], Rests * [] , ! ; 
begsublist ( [impression, • : 1 ] , S, Rests) , I 
) . 

sect ionjheader (s, Rest , 'report summary item 1 , 'SUMMARY: . ') 
S = [summary, ■ : 1 (Rest] . 
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sectionjieader (S, Rests, 'report description item' , ' DESCRIPTION: . • ) :- 
(S = [description, ■ : 1 , . ] , Rests = [] , I ; 
begsublist ( [description, ' : '] , S, Rests) , ! 
) . 

sectionjieader <S, Rest, 'report diagnosis item' , ' DISCHARGE DIAGNOSIS:.') :- 
(S = [discharge, diagnosis, 1 :' |Rest] ; 
S = [final, diagnosis, ':• | Rest] ; 

S = [principle, diagnosis, ' : • |Rest] ; S = [associated, diagnosis , 1 : ' |Rest] ; 
S = [transfer , diagnosis , ' : 1 |Rest] ; 
S = [diagnosis ,»(', es ,')•,':' | Rest] ; 
S - [diagnosis, : |Rest] 
) , !. 

sect ionjieader (S, Rest, ' report laboratory data item','LAB DATA:. 1 ) :- 

S = [laboratory, data, 1 :' | Rest] , !. 
sectionjieader (S, Rest, 'report medications item' , ' MEDICATIONS : . ' ) :- 

S = [medications, ■ : ■ |Rest] , ! . 
sectionjieader (S, Rest, 'report current medications item' , 'MEDICATIONS: . ' ) :- 

S = [current , medications, ' : ■ |Rest] , ! . 
sectionJieader(S, Rest, 'report discharge medications item', 
' DISCHARGE MEDICATIONS : . ' ) : - 
S - [discharge, medications, ':* (Rest ] , !. 
sectionjieader (S, Rest, » report discharge disposition item', 
•DISCHARGE DISPOSITION: . 1 ) : - 
S = [discharge, disposition, •:• | Rest] , !. 
sectionjieader (S, Rest, 'report medications on admission item', 
•MEDICATIONS : . ' ) : - 
S m [medications, on, admission, ' : ' |Rest] , ! . 
sectionjieader (S, Rest, 'report medications on transfer iterm' , 
•MEDICATIONS: . ' ) : - 

S ■ [medications, on, transfer, 1 : ' |Rest] , ! . 
sectionjieader (S, Rest, ' report procedure item 1 , ' PROCEDURE : . ' ) 
(S = [operation, ':' |Rest] ; S - [procedure, ':• | Rest] 
>, !. 

sectionjieader (S, Rest, 'report indications for procedure item' , • INDICATIONS : 

• _ 

(S « [indications, for, procedure, ' : ' |Rest] ; S =* 
[indications, for, operation, ' : 1 |Rest] 

) , 
i 

■ ■ 

sectionjieader (S, Rest, 'report preoperative diagnosis item^'PREOP DIAGNOSIS 

S = [preoperative, diagnosis , ' : 1 |Rest] , ! . 
section Jieader(S, Rest, 'report admitting diagnosis item' , 'ADMITTING 
DIAGNOSIS; . ») :- 

S = [admitting, diagnosis, 1 : 1 |Rest] , ! . 
sectionjieader (S,Rest, •report postoperative diagnosis item', 1 DIAGNOSIS : - ') 

S « [postoperative, diagnosis, 1 : 1 |Rest] , ! . 
sectionjieader (S, Rest, 'report physical examination item 1 , 
' PHYSICAL EXAM: . ' ) :- 

S « [physical, examination, • : ' |Rest] , I . 
sectionjieader (S, Rest, 'report chief complaint item', 'CHIEF COMPLAINT : . ' ) 

S =5 [chief , complaint ,':' | Rest] , I. 
sectionjieader {S, Rest, 'report hospital course item' , 'HOSPITAL COURSE:.') :- 

S m [hospital , course, ' : ' |Rest] , ! . 
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section_header (S,Rest, 'report allergy item' , 'ALLERGIES: . ' ) 
S = [allergies, 1 : • [Rest] , 1 . 

section_header (S, Rest, 'report follow up item' , * FOLLOW UP:.') :- 

S = [follow, up, ':' | Rest] , !. 
section_header (S,Rest, 'report findings item' , ' FINDINGS : . • ) :- 

S = [findings, 1 : 1 |Rest] , ! . 
sectionJieader(S, Rest, 'report indications and findings item * ,* FINDINGS :.' ) 

S = [indications, and, findings, ' : ' |Rest] , ! - 
section_header(S, Rest, 'report indications and findings item ',' INDICATIONS : . 

S =s [indications, ' : 1 |Rest] , ! . 
section header (S, Rest , r report provisional diagnosis item' , ' PRELIM DIAGNOSIS 

1 > 

* — 

S = [provisional, diagnosis , 1 : ' |Rest] , I . 
section_header (S,Rest, 'report review of systems item' , 'REVIEW OF SYSTEMS:.' 

S = [review, of, systems, 1 :' [Rest] , !. 
section_header (S, Rest, 'report past history item' , 'PAST MEDICAL HISTORY:.') 

S = [past, history, section, ':' | Rest] , «. 
section_header(S, Rest, 'report past history item', 'PAST MEDICAL HISTORY:.') 

S = [past, medical, history, ' : ' [Rest] , i . 
section_header (S, Rest, 'report social history item' ,' SOCIAL HISTORY:.') :- 

S m [social, history, ' : » |Rest] , 1 . 
sectionjieader (S,Rest, 'report past history item', 'PAST MEDICAL HISTORY:.') 

. S = [history, ': r |Rest] , !. 
sectionjieader (S, Rest, 'report past history item', 'PAST MEDICAL HISTORY:.') 

S m [brief , history, ? : • |Rest] , i . 
sectionjieader (S,Rest, 'report history of present illness item' , 
' HISTORY OF PRESENT ILLNESS:.') :- 

S = [history, of , present, illness, ':' (Rest] , !. 
section_header(S, Rest, 'report history of present illness item',' 
• HISTORY OF PRESENT ILLNESS : . ' ) : - 

S - [history, of , the, present, illness, ':' | Rest] , !. 
section_header (S, Rest, 'report specimen item' ,' SPECIMEN' ) :- 

S = [specimen | Rest] , ! . 

% sentence consists of id number only or "." only, 
isidentif ier"{ [X, . ] ) : - 

integer (X) . 
isidentif ier ( [X, /] ) 

integer (X) . 

isidentif ier ( [.3 ) :- !. % sentence consists only of . 
isidentif ier <['.', '<eos>'] ) :- !. 

isident if ier {[»<' ,p, ' /','>•] ) :- % paragraph marker sentence - update no. 
paragno (N) , 

retractall (paragno (_) ) , 
Newno is N + 1, 
assert (paragno (Newno) ) , 
retractall (sentno (_) ) , 
assert ( sentno ( 0 ) ) . 

% skipsentence is true, if sentence should be ignored. 
% Skip sentences • containing family info 
skipsentence ( [X | _] ) : - 

foundword(X, family) , ! . 
skipsentence ( [X | __] ) :- 

foundword(X, insurance) , !. 
% This occurs if sentence contains 
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% a sequence in skips database and sentence also contains findings, 
skipsentence ( [x| Rest] , Semi is t, Error) :- 

skips ( [X|Sseq] ) , % X is the beg. of subseq. in skip database 
pref ix( [x|Rest] , [X|Sseq] ) , % sentence contains subseq. 
(subtype (_, Semi ist) , % sentence contains information to be extracted 
Error = no; % don't try to segment 

Error = yes), !. % treat sentence as error and try to segment. 

skipsentence ( [_|Rest] , Semlist , Error) :- 
skipsentence (Rest , Semlist , Error) . 

% f indingseg (+S, -Fseg, -Begseg) : partitions sentence 



% S is the sentence; Begseg is the segment preceding the 
% modifiers of the finding; Fseg is the segment of S starting 

% with the leftmost modifier of the finding and consists of the 

% remaining sentence. 



f indingseg ( S , Fseg , Begseg ) : - 

partition(S,Begpart,Restpart) , 
(Begpart = [] , Begseg = [] ; 
Restpart = [] , Fseg « [] , Begseg » S; 
rightlstmod (Begpart, Begseg, Modseg) ) , 
append (Modseg, Restpart, Fseg) . 
f indingseg (_,□,_) : - \ . 
actionf indingseg (S , Fseg, Begseg) : - 

partition (S, Begpart , Restpart) , 
(Begpart = [] , Begseg = [] ; 
Restpart » [] , Fseg = [] , Begseg = S; 
reverse (Begpart , ReversedBef ore) , 

f indsubstance {ReversedBef ore, Rest) , 
append (Substancepart , Rest , ReversedBef ore) , 
reverse (Substancepart, Leftpart) , 
reverse (Rest , Begseg) , 
append (Leftpart , Restpart , Fseg) ) . 
actionf indingseg (_, [] ;- !. 
f indsubstance ((],[]):- I . 
f indsubstance ( [X | Res t ] , Rest ) : - 

substance (_, [X] ,[]),[. 
f indsubstance ( [X | Restl] , Rest) : - 
f indsubstance (Restl, Rest) . 



% partition (+S, -Begpart, -Restpart) ; partitions sentence 
% S is initial 

% partition (+S, -Begpart, -Restpart) : partitions sentence 
% S is initial sentence; Begpart is part of sentence before the 

• % finding; Restpart is the rest of the sentence and starts with 

% the finding. If there are 2 consecutive findings 

% the 1st one is considered a modifier 



partition ( [] ,[],[]) :- ! . 

partition ( [X|Rest] , [X | Begpart] , Restpart) :- 

not (isfinding(X) ) , 1 , partition (Rest, Begpart, Restpart) . 

partition ( [X, Y|Rest] , [X] , [Y|Rest] ) : - 
isf inding (X) , isf inding (Y) , ! . 

partition ( [X | Rest] , [] , [X | Rest] ) : - 
isf inding (X) , ! . 

% isf inding (+X) : is true if X is a word or phrase whose semantic class 
is a finding or subtype of finding. 
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isf inding (X) : - 

foundword (X, Sem) , % semantic class of word 

subtype (_, [Sem]). % is class a type of finding, recommend, or technique 

% semantic class which are types of relevant information 
subtype (finding , Sem) : - 

intersect (Sem, [attach, createbond, breakbond, activate, 
inactivate , substitute , transcribe , express , promote , 
signal] ) . 

% there is only one type of technique class 
subtype (technique, Sem) :- 

member (technique, Sem) . 
subtype (time, Sem) :- 

intersect (Sem, [status , sstatus, change, tmper, vstatus] ) . 
f indinginlist (Sem) : - 

intersect (Sem, [attach, createbond, breakbond, activate, 
inactivate , substitute , transcribe , express , promote , 
signal] ) . 

% chkf orpunct (+W, +Rest) : is true if there should be no space after word W 
chkforpunct (w,_) : - member (W, [ 1 / • , • < 1 , ■ > • , • - • , • " ' , ' [ ' , 1 3 1 , 

•{•;'} • , ,'+•,'=•,' | • , • V] ) , ! . 

% nothing left to write, 
chkf orpunct (W, [] ) :-!. 

% is true if there should be no space before word after current word 
chkforpunct {_, EW|__] ) : - 
ispunct (W) . 

% ispunct (+W) is true if W is a punctuation for sentence print out 

% The following characters are not treated as punct: - H # $ * & * 

ispunct (W) : - member (W, [ * , * , 1 . ' , ' ; • , • / ■ , • < 1 , ' > • , • ? 1 , ' ■ ' 1 , 1 - ■ , • : 1 , ' " 1 , ' [ ' , • ] » , 

f } r , 1 f ) ' + | f \', •% , , , © , J) . 

% rightlstmod (List , Firstpart, Modpart) : Modpart begins with the first 
% word in List which is a modifier; Firstpart are the preceding words 
rightlstmod ( IJ ,[],[] ) : - J . 

% X is a modifier or finding; Beginning part is empty 
rightlstmod ( [xjRest] , [] , [X|RestJ ) 
foundword<X, Sem, Target) , 

(modifier (Sem) ; Sem = p, Target - [_,conn]; subtype [Sem] )) , !. 
% X is not a modifier or finding 
rightlstmod ( [x|Rest] , [X | Firstpart] , Modpart) : - 

rightlstmod (Rest, Firstpart, Modpart) . 

% frame (Frame, Type, Value, Mods) : creates a list Frame, whose 1st 

% element is Type, 2nd element is Value, and 3rd is a list of 

% modifier frames or is emtpy 

% case where modifier list is empty; Value should be atom except for 
% certain types; 

frame ( [Type, Value] , Type, Value, X) 

(X- (]; X. [[]]), 

atom (Value) , ! . 
% Special cases where value of type should be a list 
frame( [Type, [H | R] ] ,Type, [H| R] ,X) :- 

(X - IJ ; X - [ [] 1 ) , 
oklist (Type) , » . 

% Modifier list is merged with list consisting of Type and Value 
frame ( Frame , Type , Value , Mods ) : - 
atom (Value) , 

append ( [Type , Value} , Mods , Frame ) , . 
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frame ( Frame , Type , [H | R) , Mods ) : - 
is_list (R) , 

append (R, Mods, NewMods) , 
append ( [Type, H] , NewMods, Frame), ! 
% Components of Frame 

frame ( [Type , Value | Mods ] , Type , Value , Mods ) 
% Value of Type should not be a list; first element of value is real value 
frame ( [Type, H, Rest] ,Type, [HjRest] , [] ) 1 . 

Special cases where value of type should be a list 
%frame( [Type, [H|R] 3 .Type, [H|R] , C3 ) %repeated from rule above 

% oklist (Type) , ! . 

% Value of Type should not be a list; first element of value is real value 
frame (Frame, Type, [H | Rest] , Mods) 

mergemods (Rest , Mods , NewMods) , 

append ( [Type,H] , NewMods, Frame) . 

% mergemodinf (-F, + Frame, +Mods) : Frame is a type -value -mod frame; Mods 
% is an additional set of modifiers for Frame; mergemodinf adds Mods 
% to Frame, resulting in F. 
mergemodinf ([],[],_):-!. 
mergemodinf (F, [rel,x|Rest] ,Modrel) :- 

mergemodinf (Fl , Rest, Modrel) , 

append ( [rel , X] , Fl , F) , ! . 
mergemodinf (F, [Fl,X |Modf in] , Modrel) :- 

atom ( Fl ), mergemods (Modrel, Modfin, Mod), 

append ( [Fl,X] ,Mod,F) , ! . 
mergemodinf ( F , [H|R] , Modrel) s- 

* mergemodinf (Fl, H, Modrel ) , 

mergemodinf ( F2 , R , Modrel ) , 

append ( [Fl] ,F2,F) . 

% addmodstof ( +Args , +Mods , -NewArgs) is true if Args is a list of formats, 

* Mods is a list of modifiers and NewArgs is a list of formats where Mods 

% has been added to modifier list of that format 

addmodstof ([],_,[]) : - ! . % no more formats 

addmodstof ( [Formatl | Rest] , Mods , [Fl | NewRest] ) : - 

mergemodinf (Fl,Formatl, Mods) , % merge modifiers into 1st format 
addmodstof (Rest, Mods, NewRest) , !. %add modifier to remaining 

% oklist <+Type) : is true if Type can have a list as its value 

oklist (unitval) . 

oklist (age) . 

oklist (measure) . 

oklist (prev_timeunit) . 

oklist ( f uture_exam) . 

% mergemods (+Modsl, +Mods2 , -Mod) : Modsl and Mods2 are a list of modifier lists 

% Mod is the merged list; some elements of Modsl and Mods2 may be 

% empty 

mergemods ([] ,M, M) !. 

mergemods (M, [] ,M) . 

mergemods (Modsl ,Mods2, Mod) :- 

delete (Modsl, [] , Ml) , 

delete (Mods2, f] ,M2) , 

append (Ml, M2, Mod) . 

% addmod(+Mod, +Modlist, -NewMod) : NewMod is formed by including 
% Mod into Modi is t 

addmod ( f ] , Mod, Mod) : - i . 
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addmod (Mod, [J , [Mod] ) : - • i % 
addmod ( Mod , Modi i s t , Ne wMod ) : - 

append { tMod] , Modlist , NewMod) . 
% modlist (+ListofMods, -Mods) : ListofMods is a list consisting of 
% individual modifier frames, some of which may be empty 
% Mods is formed as a list of non-empty modifiers 
modlist {[],[]) : - ! . 

% ignore a modifier which is an empty list 
modlist (ill \R) ,Mods) : - 

modlist (R, Mods) , !. 
modlist ( [ [H|R1] |R2] ,Mods) :~ 

atom(H) , ! , 

modlist (R2 , Rmods) , 

addmod ( [H|R1] , Rmods, Mods) . 
modlist ( [ [H|R1] |R2] ,Mods) :- 

is_list(H), !, % is first element is a list 

modlist (R2, Rmods) , 

mergemods { [H | Rl] , Rmods , Mods ) . 

%bpframe: creates from for sequences of bodyloc/region/position 
bpframe (F, [] F, [] ) : - !• % only 1 bodyloc 

bpframe(F, [] , Type, Bpl, Bp2) % no conj relation but more than 1 bodyloc 

frame (Bpl, BplType , Bp lVal, BplMods) , %contents of Bpl frame 
frame (Bp2,Bp2Type,Bp2Val,Bp2Mods) , %contents of Bp2 frame 
( (BplType a region; BplType = position) , 
Bp2Type = bodyloc, % 'left lung', 'area of lung* 
mergemods (BplMods, Bp2Mods, BpMods) , %new region modifier 
frame (NewBp2Mods, BplType, BplVal , BpMods ) , %new Bpl frame w new mod 
frame (F, Bp2Type, Bp2Val, [NewBp2Mods] ) % main frame is bodyloc 

BplType = bodyloc, Bp2Type = bodyloc, Type = main, %Bp2 is main 

mergemods (BplMods, Bp2Mods , BpMods) , %new bodyloc modifier 

frame (NewBp2Mods , BplType, Bpl Val , BpMods) , % ' joint of shoulder • 

frame (F, Bp2 Type, Bp2Val, [NewBp2Mods] ) % main bp frame is shoulder 

mergemods (BplMods , Bp2Mods , BpMods) , 

f irame (NewBplMods, Bp2 Type, Bp2Val, BpMods) , % 'shoulder joint' 

frame {F, BplType, BplVal, [NewBplMods] ) % main bp frame is shoulder 

)* ' • 

bpframe(F,Rel,_,Bpl,Bp2) :- % no conj relation but more than 1 bodyloc 
Rel => [rel, Conj |_] , Bp2 \« [], 
mergemods ( [Bpl] , [Bp2] ,Conjargs) , 
frame ( F , rel , Conj , Conj args ) . 

getrelation(R,Fl,F2,F) 
(F2 \= [], 

(Fl m [rel,Conjl|Restl] , R [rel, Conj], 

(Conjl = 1 , ' ; Conjl s= or; Conjl = and) , 
(Conj = » , • ; Conj » or; Conj - and) ; 

Restl = [Fl] ) , 
(F2 o [rel,Conj2|Rest2] , 

(Conj 2 = ' , • ; Conj 2 a or; Conj 2 = and) ; 

Rest2 = [F2] ) , 
%splice( [R, Restl, Res t2] , F) ; 
append ( [R, Restl, Rest2] , F) ; 

F2 * [] , F « Fl ) . 
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uptotal : - 

addstotal (X) , 

X =< 50, 

NewX is X + 1, 

retractall (addstotal (X) ) , 

assert (addstotal (NewX) ) , ! . 
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Appendix p 

#!/usr/bin/perl 
#Scan.pl : Scans blast output 
#Author: Michael Krauthammer 
#Copyright : c.1999, Columbia University 

#variables 

#blast input/file 

$input_f ile="genebank. result" ; 

#program output 

$output_f ile="match . txt" ; 

#open datastream for file which contains blast output 

open ( INPUT, ' /storage/psi -blast/Marklt/programs/markl t . result 1 ) ; 

while ($line=<INPUT>) { 

if ($line=~/\>gi\| <\d*) (.*) \ , (.*) \ ,(.*>/) { 
$target=$4 ; 
$gi *=$1; 

$semantic_class-$3 ; 
} 

if ($line=~/Length = (.*)/){ 
$lengthl=$l; 

} 

if ($line*~/Identities \= (\d*)\//){ 
$length_actual=$l 

} 

if ($line^~/Query: (\d*)/){ 
$start=$l; 

} 

#print if Subj 1, sometimes match 2 or 3 line long 

if ($line=~/Sbjct: 1 /) { 
if "( ($length_actual/$lengthl) > . 9) { 
print 

$ target, '• |" , $start, " | " , $start+$lengthl , " | " , $semantic_class , " | " , $gi, "\n" ; 

} 
} 
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Appendix Cf 

# !/usr/bin/perl 
#nucleotide_text_parser . pi 

#Author: Michael Krauthammer, c.1999 Columbia University 
open ( INPUT, $ARGV [0] ) ; 

#read uncoded input text line by line (chop it) 
$all= » ' ; 

while <$line=<INPUT>) { 
$all=$all . $line; 

} 

open (INPUTII, ' /storage/psi-blast/Marklt/programs/markltll result 1 ) ; 

open (OUTPUT, 1 >result . txt ■ ) ; 

#first part: check matches, store positions 

while ($line=<INPUTII>) { 

($name, $start , $end, $semantic_class , $gi) =$line=~/ ( . *) \ | (.*)\| ( . *) \ | ( . *) \ | (.* 

#divide by 4 (4 letter code) 
$start= ($start-l) /4; 
$end= ($end-l) /4; 

#get substring 
if ($start != 0) { 

$letters=substr ($all , $start-l, $end-$start+3 ) . " | " ; 
} else { 

$letters = ' ' - substr ($all, 0 , $end+2 ) . " | " ; 
} 

( $letter_beginning) =$letters«-/ (*.)/; 
$letter_end=substr ($all, $end, 1) ; 
$letter_endll=substr ($all , $end, 2) ; 

ftignore matches that are in the MIDDLE of sentences, allow plurals 
$letterj3eginning=~tr/ [A-Z] / [a-z] / ; 
$letter_end=-tr/ [A-Z] / [a-2] /; 

if ( ( ! <$letterjDeginning=-7 [a-z] /) ) && { ( i ($letter_end=~/ [a-z] /) ) || 
($letter_endll=-/s /) ) ) { 

#make sure only the first occurence is stored at this position 
if ($save{$start}==« ' ) { 

$save{$start}=$end. ' | 1 . $semantic_class . 1 | ' . $gi; 

} 

foreach $key (keys (%save) ) { 
($end_key) =$aave{$key}=-/ A ( . *) \ | // 
if ($end_key>$end) { 
if ($key<$start) { 

$save{$start}= ' null ' , 

} 

} 

} 

} 
} 
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^second part : print out marked up document 
sort ( %save) ; 

for ($i = 0;$i<length($all) ;$i++) { 

if ((!$save{$i}=='null») && ($save { . /) ) { 
($end, $semantic_class) =$save{ $i } =-/ ( . *) \ | ( .*) \ |/; 
print OUTPUT 1 <phr= '• 1 , $semantic_class , ' " > * ; 
$store=substr($a'll,$i, $end-$i) 
print OUTPUT $ store; 
print OUTPUT "</phr>"; 
$i=$end-l ; 

} else { 
$store=substr {$all , $i , l) ; 
print OUTPUT $store; 

} 

i 
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